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Preface 

LISP I is a programming system for the IBM 704 for comput- 
ing with symbolic expressions . It has been used for symbolic 
calculations in differential and integral calculus, electric 
circuit theory, mathematical logic, and artificial intelligence. 

This manual contains a full description of the features of 
LISP I as of March i960. The system has a central core based 
on a class of recursive functions of symbolic expressions which 
should be studied first and if possible used before the more 
peripheral features are tried. This core is described in Chap- 
ters 2 and 3, and LISP programs can be written and run using 
this core provided someone familiar with the operational as- 
pects of the system i.e. loaders, tapes etc. is available. 
Later, the advanced features will be found useful although they 
are less neat, and less carefully described. 

This manual applies also to a version of LISP I being pre- 
pared for the IBM 709 . 
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1. Introduction 

The current basic LISP system uses about 12,000 of the 
32,000 memory of the 704. It includes routines for reading and 
for printing, and it contains many LISP functions either coded 
in machine language or given as S-expressions (see Chapter 2) 
for the interpreter part of the system. A list of available 
functions is included in the manual, and other functions may 
be defined by the user. Chapters 2 and 3 of the manual should 
give the user enough information to enable him to use the basic 
system. 

Enlargements of the basic system are available for various 
purposes. The compiler version of the LISP system can be used 
to compile S-expressions into machine code. Values of compiled 
functions are computed about 60 times faster than the S-expres- 
sions for the functions could be interpreted and evaluated. 
The LISP-compiler system uses about half of the 32,000 memory. 

For on-line operation using M.I.T's Flexowriter-704 system, 
the basic LISP system can be augmented by a special package of 
routines to control the input-output aspects of the Flexowriter. 
The Flexowriter version of LISP I does not contain the compiler 
option. 

Descriptions of the various features of the LISP system are 
given in the manual together with an explanation of the procedure 
to be followed in submitting, running, and debugging a program 
written in the LISP language. 
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12 
2. Recursive Functions of Symbolic Expressions ' 



The LISP I programming system is based on a class of func- 
tions of symbolic expressions which we now proceed to describe, 



2.1 Functions and Function Definitions 

We shall need a number of mathematical ideas and notations 
concerning functions in general. Most of the ideas are well 
known but the notion of conditional expression is believed to 
be new, and the use of conditional expressions permits functions 
to be defined recursively in a new and convenient way. 

a. Partial Functions 

A partial function is a function that is defined only on 
part of its domain. Partial functions necessarily arise when 
functions are defined by computations because for some values 
of the arguments, the computation defining the value of the 
function may not terminate. However, some of our elementary 
functions will be defined as partial functions. 



This chapter is taken from the Quarterly Progress Report No. 53 , 
Research Laboratory of Electronics, M.I.T ., April 15, 1959: 
"Recursive Functions of Symbolic Expressions and Their Computa- 
tion by Machine" by John McCarthy. 

An article on the same subject by McCarthy is to appear in 
the April i960 issue of the Communications of the Association 
for Computing Machinery. 
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b. Propositional Expressions and Predicates 

A propositional expression is an expression whose possible 
values are T (for truth) and F (for falsity). We shall as- 
sume that the reader is familiar with the propositional con- 
nectives A ("and"), V ("or"), and —("not"). Typical pro- 
positional expressions are 

x < y 
., (x<y) A (b=c) 

x is prime 

A predicate is a function whose range consists of the truth 
values T and P. 

c. Conditional Expressions 

The dependence of truth values on the values of quantities 
of other kinds is expressed in mathematics by predicates, and 
the dependence of truth values on other truth values by logical 
connectives. However, the notations for expressing symbolical- 
ly the dependence of quantities of other kinds on truth values, 
is inadequate, so that English words and phrases are generally 
used for expressing these dependences in texts that describe 
other dependences symbolically. For example, the function |x| 
is usually defined in words. 

Conditional expressions are a device for expressing the de- 
pendence of quantities on propositional quantities. A condition- 
al expression has the form 

(P 1 -*e 1 ,...,p n -e n ) 

where the p's are propositional expressions and the e's are ex- 
pressions of any kind. It may be read, "if p ± then e ± , other- 
wise if p 2 then e 2 , ..., otherwise if P n then e n ," or '^ yields 

e i>**-' p n y ielda e n *" 
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We now give the rules for determining whether the value,, 
of (p^ -♦ e^, ^ . .,p n -»• e-) is defined; and if so what its value 
Is. Examine the p's from left to right. If a p whose value 
is T is encountered before any p whose value is undefined is 
encountered, then the value of the conditional expression is 
the value of the corresponding e (if this is defined). If any- 
undefined p is encountered before a true p, or if all p's are 
false, or if the e corresponding to the first true p is un- 
defined, then the value of the conditional expression is un- 
defined. We now give examples. 

|i<2 ■-+ A,l»2 .-+ 3) ,- 4 
(2^1 -* 4,2>1 .-* 3,2>1 -* 2) =3 
(2^1 .-+ 4,T"^ .3) = 3 
., (2<i-*g i T^3) - 3 

(2<1 — 3,T — g) is undefined 
(2<L -»• 3,iRl -*■ 4) is undefined 

Some of , the simplest applications of conditional expres- 
sions are in giving such definitions as 

fx| ;■■« (x<Q ."I - T X,T -*\x) 

§= ;.(i.jr» l,T-0) 
x) = (x<0 —■ -l,x=0 -♦ 0,T -* 1) 

d f Recursive Function Definitions 

By using conditional expressions we can, without circu- 
larity, define functions by formulas in which the defined func- 
tion occurs. For example, we write 

hi « (n^-* 1,T -*■ n-(n-l)l) 

When We use this formula to evaluate 0! we get the answer 1; 
because of the way in which the value of a conditional 



y 
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expression was defined, the meaningless expression O'(O-l)! 
does not arise. The evaluation of 2! according to this defi- 
nition proceeds as follows: 

2! = (2=0 -+ 1,T-* 2* (2-1)1). 
= 2-1! 

» 2«{1=0-* 1,T-* l«(l-l)i) 
= 2'1-OS 

= 2»1» (0=0 -* 1,T -* 0* (0-1) ! ) 
= 2*1*1 
= 2 

We now give two other applications of recursive function 
definitions. The greatest common divisor, gcd (m,n), of two 
positive integers m and n is computed by means of the 
Euclidean algorithm. This algorithm is expressed by the re- 
cursive function definition: 

gcd(m,n)=(m>n -*• gcd(n,m),rem(n,m)=0 -* m,T -+ gcd(rem(n,m),m) ) 

where rem(n,m) denotes the remainder left when n is divided by m. 

The Newtonian algorithm for obtaining an approximate square 
root of a number a, starting with an initial approximation x 
and requiring that an acceptable approximation y_ satisfy 
ly -a !«£.£, may be written as 

x -aK€ -* x,T -* sqrt(a,^(x+ x -),€)) 

The simultaneous recursive definition of several functions 
is also possible, and we shall use such definitions if they 
are required. 

There is no guarantee that the computation determined by a 
recursive definition will ever terminate and, for example, an 
attempt to compute n! from our definition will only succeed if 
n is a non-negative integer. If the computation does not ter- 
minate, the function must be regarded as undefined for the 
given arguments. 
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The propositional connectives themselves can be defined by 
conditional expressions. We write 

pAq = (p -► q,T— ► P) ) 

pVq m (p -► T,T -" q) X ^-^ <f 



P - (P "* F,T — T) 
p>q - (p ~* q,T -*■ T) > 



It is readily seen that the right-hand sides of the equations 
have the correct truth tables. If we consider situations in 
which p or q may be undefined, the connectives A and V are seen 
to be noncommutative . For example, if p is false and q Is un- 
defined, we see that according to the definitions given above 
pAq is false, but qAp is undefined. For our applications this 
noncommutativity is desirable, since pAq is computed by first 
computing p, and if p is false q is not computed. If the com- 
putation for p does not terminate, we never get around to com- 
puting q. We shall use propositional connectives in this' sense 
hereafter. 

e. Functions and Forms 

It is usual in mathematics - outside of mathematical logic - 

to use the word "function" imprecisely and to apply it to forms 

2 
such as y +x. Because we shall later compute with expressions 

for functions, we need a distinction between functions and forms 
and a notation for expressing this distinction. This distinc- 
tion and a notation for describing it, from which we deviate 

1 
trivially is given by Church. 



A. Church, The Calculi of Lambda-Conversion (Princeton 



University Press, Princeton, N.J., 19*H). 
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Let f be an expression that stands for a function of two 

integer variables. It should make sense to write f (3, k) and 

the value of this expression should be determined. The ex- 

pression y +x does not meet this requirement; y +x(3,4) is not 

a conventional notation, and if we attempted to define It we 

would be uncertain whether its value would turn out to be 13 

p 
or 19. Church calls an expression like y +x a form. A form 

can be converted into a function if we can determine the cor- 
respondence between the variables occurring in the form and 
the ordered list of arguments of the desired function. This 
is accomplished by Church's X-notation. 

If 5 is a form in variables x^,...,x , then *((x^, .. .,x ),&) 
will be taken to be the function of n variables whose value is 
determined by substituting the arguments for the variables 
x 1 ,...,x_ in that order in ll and evaluating the resulting ex- 
pression. For example, x((x,y),y +x) is a function of two 
variables, and X((x,y),y 2 +x) (3,4) =19. 

The variables occurring in the list of variables of a 

^-expression are dummy or bound, like variables of integration 

in a definite integral. That is, we may change the names of 

the bound variables in a function expression without changing 

the value of the expression, provided that we make the same 

change for each occurrence of the variable and do not make two 

variables the same that previously were different. Thus A((x,y), 

p p p 

y +x),*((u,v),v +u) and A((y,x),x +y) denote the same function. 

We shall frequently use expressions in which some of the 
variables are bound by Vs and others are not. Such an expres- 
sion may be regarded as defining a function with parameters. 
The unbound variables are called free variables. 

An adequate notation that distinguishes functions from forms 
allows an unambiguous treatment of functions of functions. It 
would involve too much of a digression to give examples here, 
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but we shall use functions with functions as arguments later in 

this manual. 

Difficulties arise in combining functions described by *- 
expressions, or by any other notation involving variables, be- 
cause different bound variables may be represented by the same 
symbol , This is called collision of bound variables . There is 
a notation involving operators that are called combinators for 
combining functions without the use of variables. Unfortunate- 
ly, the combinatory expressions for interesting combinations of 
functions tend to be lengthy and unreadable. 

f . Expressions for Recursive Functions 

The ^-notation is inadequate for naming functions defined 
recursively. For example, using Vs, we can convert the de- 
finition 

sqrt(a,x,e) = (|x -a\^ -+ x,T -* sqrt(a,^(x+^),6) ) 

into 

( o i la 

sqrt = 7\((a,x,6), ( |x -a|*€ -+ x,T -* sqrt(a,s(x+£),6))) 

but the right-hand side cannot serve as an expression for the 
function because there would be nothing to indicate that the re- 
ference to sqrt within the expression stood for the expression 
as a whole . 

In order to be able to write expressions for recursive func- 
tions, we introduce another notation: label (a ,8 ) denotes the 
expression IT , provided , that occurrences of a within £ are to 
be Interpreted as referring to the expression as a whole . Thus 
we can write . 

lab<2l(sqrt,*((a,x,€), (|x 2 -a|^6 -* x,T -* sqrt (a^x+f*),*)) ) ) 
as a name for our sqrt function. 
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The symbol a in Label (a, Is) is also bound, that is, it may 
be altered systematically without changing the meaning of the 
expression. It behaves differently from a variable bound by a 
X, however. 



2.2 Symbolic Expressions 

We shall first define a class of symbolic expressions in 
terms of ordered pairs and lists. Then we shall define five 
elementary functions and predicates, and build from them by 
composition, conditional expressions, and recursive definitions 
an extensive class of functions of which we shall give a num- 
ber of examples. We shall then show how these functions can be 
expressed as symbolic expressions, and we shall define a uni- 
versal function apply that allows us to compute from the ex- 
pression for a given function its value for given arguments. 
Finally, we shall define some functions with functions as ar- 
guments and give some useful examples. 

a. A Class of Symbolic Expressions 

We shall now define the S-expressions (S stands for sym- 
bolic). They are formed by using the special characters 

) 
( 

and an infinite set of distinguishable atomic symbols. For 
atomic symbols, we shall use strings of capital Latin letters 
and digits . Examples of atomic symbols are 

A 

ABA 

APPLEPIENUMBER3 
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There is a twofold reason - for departing from the usual 
mathematical practice of using single letters for atomic sym- 
bols. First, computer programs frequently require hundreds of 
distinguishable symbols that must be formed from the 47 charac- 
ters that are printable by the IBM 704 computer. Second, it 
is convenient to allow English words and phrases to stand for 
atomic entities for mnemonic reasons . The symbols are atomic 
in the sense that any substructure they may have as sequences 
of characters is ignored. We assume only that different sym- 
bols can be distinguished . 

S-expressions are then defined as follows; 

1. Atomic symbols are S-expressions . 

2. If e^ and e g are S-expressions, so is ( e ^ ce 2^° 
Examples of S-expressions are 

AB 

(A-B) 

((AB'C>D) 

An S-expression is then simply an ordered pair, the terms 
of which may be atomic symbols or simpler S-expressions. We 
can represent a list of arbitrary length in terms of S-expres- 
sions as follows. The list 

(racing, . . . ,m ) 

is represented by the S-expression 

(m 1 * (m 2 ° (, ., (m n °NIL). . . ))) 

Here NIL is an atomic symbol used to terminate lists. 

Since many of the symbolic expressions with which we deal 
are conveniently expressed as lists, we shall introduce a list 
notation to abbreviate certain S-expressions, We have 

1. (m) stands for (nrNIL). 

2. (m 1 ,.;.,m ■) stands for ■(rn 1 «(.-..(m 'NIL}.. - .)). 

3. (m^, . . .,m n °x) stands for (m^* (.v. (m n °x) <,..)) . 
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Subexpressions can be similarly abbreviated. Some examples 
of these abbreviations are 

((AB,C),D) for ((AB*(C'NIL)WD*NIL)) 
((A,B),C,D-E) for ((A-(B.NIL))«(C-(D.E))) 

Since we regard the expressions with commas as abbreviations 
for those not involving commas, we shall refer to them all as S- 
expressions. 

b. Functions of S-expressions and the Expressions That Represent 
Them 

We now define a class of functions of S-expressions. The 
expressions representing these functions are written in a con- 
ventional functional notation. However, in order to clearly 
distinguish the expressions representing functions from S-ex- 
pressions, we shall use sequences of lower-case letters for 
function names and variables ranging over the set of S-expres- 
sions. We also use brackets and semicolons, instead of pa- 
rentheses and commas, for denoting the application of functions 
to their arguments. Thus we write 

car[x] 

car[cons[ (a«B)jx]] 

In these M-expressions (meta-expressions) any S-expressions that 
occur stand for themselves. 

c. The Elementary S-f unctions and Predicates 

We introduce the following functions and predicates: 
1. atom 

atom[x] has the value of T or P, accordingly as x is an 
atomic symbol or not. Thus 



-13- 



atom[(X-A)] = F 

2. eq 

eqtxjy] is defined if and only if either xndr; y'-i's &bm&-&< 
eq[x;y] = T if x and y are the same symbol, and eq[x;y] = F 
otherwise, f Thus 

eq[X;Xj - T 

eq[X;A] - F 

eq[X;(X-A)] = F 

3. car 

car[x] is defined if and only if x is not atomic. 
carKe^eg)] - e ± . Thus 
car [X] is undefined . 
car[(X«A)] = X 
car[((X-Ay-Y)) ! = (X-A) 

^ ■■•■ odr 

cdr[x] is also defined when x is not atomic. We have 
cdr[(e i «e 2 )] = e 2 *. Thus 
cdr[Xl is undefined, 
cdrt(X-A)] = A 
cdr[((X-A).Y)] *= Y 

5. COftS 

cons[x;y] is defined for any x and y. We have 
conste^;e 2 J = (e^e,,). Thus 
cohstXjA] = (X-A) 
cons[(X.A);Y] = ((X'A).Y) 

car , cdr and cons are easily seen to satisfy the relations 
car [ cons [x;y]J = x 
cdr[cons[x;y]] - y 
cons[car[x];cdr[x]] - x, provided that x is not atomic. 
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The names "car" and "cons" will come to have mnemonic sig- 
nificance only when we discuss the representation of the system 
in the computer. Compositions of car and cdr give the subex- 
pressions of a given expression in a given position. Composi- 
tions of cons form expressions of a given structure out of parts. 
The class of functions which can be formed in this way is quite 
limited and not very interesting. 

d. Recursive S-f unctions 

We get a much larger class of functions (in f act > all com- 
putable functions) when we allow ourselves to form new functions 
of S-expressions by conditional expressions and recursive defi- 
nition. 

We now give some examples of functions that are definable 
in this way. 

1. ff[x] 

The value of ff[x] is the first atomic symbol of the S -ex- 
pression x with the parentheses ignored. Thus 

ff[((A*B)-C)l = A 
We have 

ff[x] = [atom[x] -* xjT-> ff[car[x]]] 

We now trace in detail the steps in the evaluation of 
ff[((A.B).C)R 

ff[((A.B).C)] » [atom[((A.B).C)] - ((A-B) -CjjT -* ff [car[ ((a.B).C)]] ] 
= [F-* ((A-B).C);T-» ff[car[((A.B).C)]]] 
' - (T-+ ff[car[((A.B)-C)]]] 

- ff[car[((A-B)-C)]] 
= ff[(A*B)J 

- [atom[(A-B)] -* (A-B) ;T - ff [car[ (A«B)]J ] 
= [F - (A -B ) ; T - f f [ carl (A «B ) ] j ] 

= [T-* ff[car[(A-B)]]J 
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'■** ff[car[(A'B)]] 
=~ ff[A] 

w f&tomU] ■-♦ AjT-* ff[car[A]]] 
**■ [T -* A;T -♦ ff [car[ A]] 3 

= A • ■ . 

2 * subst [x;y;zj 

This function gives the result of substituting the S-expres- 
sion x for all occurrences of the atomic symbol y_ in the S-ex- 
pression z . It is defined by 

substtxjyjz], = tatowtz] ~+ [eqU;y]-* xjT -* zj;T t* cons|subst[ 

x;y;car[z] ]}subst[x;yjcdr[z] ]] ] 

As an example, we have 
subs.t[(X.A) l -B}((A-B)-C)] * ((A-(X.A)).C) 

3» equal [x;y] 

This is a predicate, that has the value T if x and y are the 
same S-expression, and has the value P otherwise. We have 

equal [xjy] = Eatom[x]Aatom[y3 AeqExjy] ]vlratom[x3 A~atom[y3A 
equal[car[x]jcar[y]]Aequal[cdr[x];cdr[y}]] 

It is convenient to see how the elementary functions look 
in the abbreviated list notation. The reader will easily verify 
that 

(i) cart (m^mg, v . ,,m n )] = m^ 

(11) cdrC (m 1 ,m 2 , .. .,m n )] = (m 2 , .. .,m n ) 

(ill) cdr[(m)] - NIL 

(iv) const m^j (m 2 ,.. •,m n )] » (m 1 ,m 2 , ...,m n ) 
■ l (v) cons[m;NIL] = (m) 

We define 

null[x] = atom[x]Aeq[xjNIL] 
This predicate is useful in dealing with lists. 
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Compositions of car and cdr arise so frequently that many 
expressions can be written more concisely if we abbreviate 

cadr[x] for car[cdr[x]], 

caddr[x] for car[cdr[cdr[x]] ], etc. 

Another useful abbreviation is to write listte^jep; . . . ;e ] 
for cons[e 1 ;cons[e 2 ; . .. j cons [ e n ; NIL] ...]] . This function 
gives the list, (e 1 , ...,e n ), as a function of its elements. 

The following functions are useful when S-expressions are 
regarded as lists. 

1. append [xjy] 

append[xjy} = [null[x] -+ y;T -*■ cons[car[x];append[cdr[x]jy]]] 
An example is 

append[(A,B);(C,D,E)] = (A,B,C,D,E) 

2. amongjxjyj 

This predicate is true if the S-expression x occurs among 
the elements of the list y. We have 

among[xjy] = ~null[y]A[equal[x;car[y]]Vamong[x;cdr[y]3 ] 

3. gairtxjy] 

This function gives the list of pairs of corresponding ele- 
ments of the lists x and y. We have 

pair[x;y] = [null[x]Anull[y] -* NILj~atom[x]A~atom[y] -* const 

list[car[x];car[y]]jpair[cdr[x]5cdr[y] ]]] 
An example is 

palr[(A,B,C)j(X,(Y,Z),U)J = ((A,X), (B, (Y,Z)), (C,U) ) 

4. assoc [xjy] 

If y is a list of the form ((u 1 ,v i ), . . ., (u n ,v n ) ) and x is 
one of the u's then assoc [x;y] is the corresponding v. We have 

assoc[x;y] = [caar[y] = x ~* cadarty];T -» assoc[x;cdr[y]] ] 
An example is 

assoc[X;((W,(A,B)),(X,(C,D)),(Y,(E,P)))] - (C,D) 

5. sublis [x;y] ' 

Here x is assumed to have the form of a list of pairs 
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(fu^ji*. ., (u n ,v n )), where the u's are atomic, and y may be 
any S-sxpresgion. The value of subJLLsjxjy] is the result of 
substituting each v for the corresponding u in y. In order to 
define sublis, we first define an auxiliary function. We have 

sub2[x;z] = [nuiltx] ■*■*' zjeqtcaarEx] jz] •+ cadar[x];T *■+ sub2[ 
cdrCx];^]] 
and 

sublis[x;y] '«' [atom[y] -* sub2[x;y]}T -> cons[sublis[x;car[ 
y] ] j subllslx; cdr[y ] 3 ]J 
We have " 

sublis[((X, (A,B)),(Y,(B,C)))j(A,X- : Y)] = (A, (A,B),B,C) 
e» Representation of S-Functions by S-Expressions 

S-f unctions have been described by M-expressions , We now 
give a rule for translating M-expressions into S-expressions, 
in order to be able to use S-f unctions for making certain com- 
putations with S-funct ions and for answering certain questions 
about S-f unctions . 

The translation is determined by the following rules in 
which we denote the translation of an M-expresslon if. by £*« 

1. If £ is an S-expressiOn g, * is (QUOTE, € ). 

2. Variables and function names that were represented by 
strings of lower-case letters are translated to the correspond- 
ing strings of the corresponding upper-case letters , Thus car* 
is CAR, and subst* is SUBST* 

:3;i A form ffe^; . ,V;e n I is translated to (f *,e£, . . ■'. ,e*) * 
Thus (cons[car[x] J cdr[x]33* is (CONS, (CAR, X), (CDR,X) ). 

4. {[p x -* e ± ; • . -JP n il* I 3 ( C0ND > (Pf ieft- • • > (Pn' e n) } ' 
5- (x[[x 1 J...jx n ]jB]3* is (LAMBDA, (x*; . . . ,x*),£*) . 
6. {label [ a,- S]}* is (LABEL,a*,g*) . 
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With these conventions the substitution function whose 
M-expression is label[subst;}>[[x;yjz]j[atom[z] -* [eq[y;z] -*• . 
xjT ■-*■ z];T -*■ cons[subst[x;y;car[z]]$subst[x;y;cdr[z]]]]]] has 
the S -express ion 

(LABEL,SUBST, (LAMBDA, (X,Y,Z), (COND, ((ATOM,Z), (COND, ((EQ,Y,Z}, 
X), ((QU0TE,T),Z))), ((QUOTE, T), (CONS, (SUBST,X,Y, (CAR,Z)), (SUBST, 
X,Y,(CDR,Z))))))) 

This notation is writable and somewhat readable t It can be 
made easier to read and write at the cost of making its struc- 
ture less regular. If more characters were available on the 
computer, it could be improved considerably. 

1 
f . The Universal S-Function apply 

There is an S-function apply with the property that if f* 
is an S-expression for an S-function f and args is a list of" 
arguments of the form (argl, . ..,argn), where argl, . . . ,argn are 
arbitrary S -express ions, then apply [«f»; args] and f [argl; . .. ;argn] 
are defined for the same values of argl, . . .,argn, and are equal 
when defined. For example, 

^[[x;yhcons[car[x];y]][(A,B)i(C,D)] = apply[ (LAMBDA, (X,Y), ( 

CONS, (CAR,X),Y));((A,B),(C,D))] - (A,C,D) 



1 
Note that the APPLY operator for the 704 version of LISP I as 

described and used in the rest of the manual is not identical 



with this apply function. 
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The S-f unction apply is defined by 

appiy[f;args] * eval[cons[f ;appq[args] ];NXL] 

where 

appqtm] = [null[m] -* NILjT . ■•"* cons [list [QUOTE; car [m]];appq[ 
cdr[m]]]] 



and 



and 



and 



eval[e;p] = [ 

atom[e] ~* [assoc[e;p]; 
atom[carte]] -* [ 

eq[car[e]; QUOTE] "—■ cadr[e]; 

eq[car[e];ATOM] ~* atom[eval[cadr[e];p] ]; 

eq[car[e];EQ] r* eq[eval[cadr[e] jp] jeval[caddr[e] jp]]| 

eq[car[e];COND] -* evcon[cdr[e];p]j 

eq[car[e];CAR] -* car[eval[cadr[e];p] ]; 

eq[car[e];CPIl] -* cdr[eval[cadr[e];p] ].; 

eq[ carte ] ; CONS] -* cons [ eval[cadr[e ] jp ] ; evalC caddr[e] ;p] ] ; 

T "* eval[cons[assoc[car[e];p];evlis[cdr[e];pi ] j.p] ];' 
eq[ caar [ e ] ; ISABEL] -* eval [ cons [ caddar [ e ] ; cdr [ e ] ] j cdr [ e ] ] ; 

cons [lis t [ cadart e ]; car[ e ]]; p ]] ; 
eq[caar[e];LAM3DA] "*" eval[caddar[e];append[pair[cadar[e] j 

evlis[cdr[e];p];p]]]] 



evcon[c$p] • [eval[caar[c];p] — •" eval[cadar[c];p];T -*■ evcon[ 
cdr[c]jp]] 



evlistmjp] = [null[m] .-*• NJL;T ~* cons[list[eval[car[m];p] j 
evlis[cdr[ni];p] ] ] ] 

We now explain a number of points about these definitions. 
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■"■* apply itself forms an expression representing the value 
of the function applied to the arguments, and puts the work of 
evaluating this expression onto a function eval. It uses appq 
to put quotes around each of the arguments, so that eval will ' 
regard them as standing for themselves. 

2. eval [e;p] has two arguments, an expression e to be 
evaluated, and a list of pairs p. The first item of each pair 
is an atomic symbol, and the second is the expression for which 
the symbol stands. 

3. If the expression to be evaluated is atomic, eval evalu- 
ates whatever is paired with it first on the list p_. 

4. If e is not atomic but car[e] is atomic, then the ex- 
pression has one Of the forms (QUOTE, e) or (ATOM, e J or (EQ^e^ep) 
or (COND, ( Pl ,e^, ...,(p n ,e n )), or (CAR,e) or (CDR,e) or (C0NS,e ± , 
e 2 ) or (f,e 1 ,...,e n ) where f is an atomic symbol. 

In the case (QUOTE, e) the expression e, itself, is taken. 
In the case of (AT0M,e) or (CAR,e) or (CDR,e) the expression e 
is evaluated and the appropriate function taken. In the case 
of (EQ,e 1 ,e 2 ) or (C0NS,e 1 ,e 2 ) two expressions have to be evalu- 
ated. In the case of (COND, (p^e^), . .., (p ,e n )) the p's have 
to be evaluated in order until a true p is found, and then the 
corresponding e must be evaluated. This is accomplished by 
evcon . Finally, in the case of (f,e 1 ,...,e ) we evaluate the 
expression that results from replacing f in this expression by 
whatever it is paired with in the list p_. 

5. The evaluation of ( (LABEL, f,£),e,,,.. . ,e ) is accom- 
plished by evaluating (S,e 1 ,...,e ) with the pairing (f, (LABEL, 
f »£)) put on the front of the previous list £ of pairs. 

6. Finally, the evaluation of ( (LAMBDA, (x i , . . . ,x n ) ,€) , 
e 1 ,...,e ) is accomplished by evaluating & with the list of 
pairs ((x^,e^), . . ., (x_,e )) put on the front of the previous 
list p. 
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The list p_ could toe eliminated, and LAMBDA and LABEL expres- 
sions evaluated by substituting the arguments for the variables 
in the expression £ .' Unfortunately, difficulties involving 
collisions of bound variables arise, but they are avoided by 
using the list ; p. 

g. Functions with Functions as Arguments 

There are a number of useful functions some of whose argu- 
ments are functions. They are especially useful in defining 
other functions. One such function is maplist[x;f] with ah S- 
expression argument x and an argument f that is a function from 
S-expressions to S-expressioris. We define 

maplist[x;f] = [ null [x ]-* NIL; T r* cons[f [x];maplist[cdr[x];f ] ] ] 

:;,-;; .The usefulness of maplist is illustrated by formulas for the 
partial derivative with respect to x of expressions involving 
sums and products of x and other variables. The S-expressions 
that we shall differentiate are formed as follows. 

1. Ah atomic symbol is an allowed expression. 

2. If e ±> e 2> " "> e n are allowed expressions, (PLUS,e i , . . .,e n ) 
and (TIMES, e., .. . ,e„) are also, and represent the sum and product, 
respectively, of e ±f*> e n " 

This is, essentially, the Polish notation for functions, ex- 
cept that the inclusion of parentheses and commas allows func- 
tions of variable numbers of arguments. An example of an allowed 
expression is 



1 
For more exact information on arithmetic functions see Section 9.4, 
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(TIMES,X, (PLUS,X,A),Y), the conventional algebraic notation for 
which is X(X+A)Y. 

Our differentiation formula, which gives the derivative of 
y with respect to x, is 

diff[y;x] = [atom[y] -* [eq[y;x] -» ONE;T-»- ZERO] ;eq[ car [y]; 
PLUS ] -* cons [ PLUS; tnaplis t [ cdr [y ] ; M [ z ] ; dif f [ 
car[z];x]]]];eq[car[y];TIMES] •*♦ cons [ PLUS; maplist[ 
cdr[y];A[[z];eons[TIMES;maplist[cdr[y];\[[w];~eq[ 
z;w] -* car[w];T -*■ diff [car[wl;x] IIIIII] 

The derivative of the allowed expression, as computed by 
this formula, is (PLUS, (TIMES, ONE, (PLUS, X, A), Y), (TIMES, X, ( 
PLUS, ONE,ZERO),Y), (TIMES, X, (PLUS, X,A), ZERO) ) 

Besides mapllst , another useful function with functional 
arguments is search , which is defined as 

search[x;p;f;u] = [null[x] -* u;p[x] *"*' f [x];T ^:searclii[cdr'txl;p;f;u] ] 

The function search is used to search a lsit for an element that 
has the property p, and if such an element is found, f of that 
element is taken. If there is no such element, the function u 
of no argument is computed. 
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3. LISP Primer 

The features of LISP described in this section permit the 
user to define' a number of S-f unctions and then compute the re- 
sults of applying them to arguments . 

3.1 Definition of Functions 

In order to define functions we punch the following (using 
columns .1-72 of: as many cards as are necessary): 
DEFINE (( 

(name of first function, definition of first function), 
(name of second function,, definition of second function), 



(name of last function, definition of last function) 

)) (). 

For example, if we wish to define the functions ff, alt , 

and subst given by 

,ff[x] t Eatomtx] -♦ x;T-^ ff[car[x]J] 

altCx] « [null[x]Vnull[cdr[x]] -*. xjT-* cons[car[x];alt[ 
cdricdrtx]]]]] 
subst[xjy;z] = [atom[z] -* [eq[y;z] -* xjT .-*• z];T -+ cons[subst[ 
xjy;car[z]]jsubst[xjyjcdr[z]]]] 

we write 

DEFINE (( 
(FF ; (LAMBDA (x) : (COND ( (ATOM X) X) (T (FF (CAR X) ) ) ) ) ) 
(ALT LAMBDA (X) (COND ((OR (NULL X) (NULL (CDR X))) X) 
(T (CONS (CAR X) (ALT (CDR (CDR X)))))))) 
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(SUBST (LAMBDA (X Y Z) (COND ((ATOM Z) (COND ((EQ Y Z) X) : 
(T Z))) (T (CONS (SUBST X Y (CAR Z)) ( SUBST X Y (CDR Z) )))))) 
)) 

A few discrepancies between the situation as it is and 
what might be expected from the previous chapter should be 
noted 

1. The commas in writing S-expressions may be omitted. 
This is an accident. 

2. According to the definition of apply in the previous 
chapter one would expect to have to write (QUOTE T) in desig- 
nating the left-over case in a conditional expression. For 
convenience, our apply allows (and in fact requires) that T be 
written instead. 

3. The predicates null V A and^are built-in. We write 
(NULL X) and (OR p ± P 2 ... p n ) and (AND p ± p 2 . «.P n ) and (NOT p) 

4. The dot notation e.g. (A'B) is not allowed in LISP I. 
Function definitions may involve other functions which are 

either built-in or are defined earlier or later. 



3.2 The Use of Functions 

After the cards which define functions we can put cards 
which cause their values to be computed and printed for given 
arguments. This is done by writing a triplet 

function 

list of arguments 

p-list 

In the simplest case the p-list is null and is written () 
For example, in order to compute subst[ (X,A);X; ((X,A),X)J we 
write 

SUBST ((X A) X ((X B) X)) (.) 



-25- 



The answer -(((X A) B) (X A)) will be printed. 

3.3 Debugging 

The main debugging tool Is the pseudo-function tracklist . 
If you put a card 

TRACKLIST (f ± f 2 . - . f n ) () 

after the cards which define the functions f ± , ...,f n and before 
the functions are used in computations, the computer will print 
the arguments and values of f ± , ...,f n each time they are used 
recursively in a computation, tracklist acts as a tracing pro- 
gram, but usually it is not necessary to trace more than one or 
two functions . 

3 • ^ The Wang Algorithm for the Propositional Calculus 

As an extended example of the use of a succession of func- 
tion definitions to define an algorithm we give a LISP formula- 
tion of an algorithm for deciding whether a formula is a theo- 
rem of the propositional calculus published recently by Hao Wang. 
Readers completely unacquainted with propositional calculus 
should probably skip this example. 



i 



1 
Wang, Hao. "Toward Mechanical Mathematics", IBM Journal of 

Research and Development, Vol. 4, No. 1, January i960 
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(1) The Wang Algorithm . We quote from pages 5 and 6 of 
Wang's paper. 

" The prepositional calculus (System P) 

Since we are concerned with practical feasibility, it is pre- 
ferable to use more logical connectives to begin with when we 
wish actually to apply the procedure to concrete cases. For 
this purpose we use the five usual logical constants -*-- (not), 
4 (conjunction, V (disjunction), 3 (implication, == (bicondi- 
tional), with their usual interpretations. 

A propositional letter P, Q, R, M or N, et cetera, is a 
formula (and an "atomic formula"). If cf> , l|f are formulae, then 
~ <fi , c^> <Jt~Z\f, <p V \jf ,<$ ^>2ff, (p = Xjf are formulae. If ir, /> 
are strings of formulae (each, in particular, might be an empty 
string or a single formula) and 9 is a formula, then ir, <fi , p 
is a string and ir -*• P is a sequent which, intuitively speaking, 
is true if and only if either some formula in the string w (the 
"antecedent") is false or some formula in the string y° (the 
"consequent") is true, i.e., the conjunction of all formulae in 
the antecedent implies the disjunction of all formulae in the 
consequent . 

There are eleven rules of derivation. An initial rule 
states that a sequent with only atomic formulae (proposition 
letters) is a theorem if and only if a same formula occurs on 
both sides of the arrow. There are two rules for each of the 
five truth functions --one introducing it into the antecedent, 



2 
This example is an excerpt from Memo 14 of the Artificial In- 
telligence Project — R.L.E. and M.I.T. Computation Center, by 
John McCarthy, The Wang Algorithm for the Propositional Cal - 
culus Programmed in LISP . 
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one introducing it into the consequent. One need only reflect 
on the intuitive meaning of the truth functions and the arrow 
sign to be convinced that these rules are indeed correct. La- 
ter on, a proof will be given of their completeness, i.e. , all 
intuitively valid sequents are provable, and of their Consist- 
ency, i.e., all provable sequents are intuitively valid. 

Pi. Initial rule: if X, ^ are strings of atomic formulae, 
then ~h -*■ £ is a theorem if some atomic formula occurs on 
both sides of the arrow. 

In the ten rules listed below, X and % are always strings 
(possibly empty) of atomic formulae. As a proof procedure in 
the usual sense, each proof begins with a finite set of cases 
of Pi and continues with successive consequences obtained by 
the other rules. As will be explained below, a proof looks like 
a tree structure growing in the wrong direction. We shall, how- 
ever, be chiefly interested in doing the step backwards, there- 
by incorporating the process of searching for a proof. 

The rules are so designed that given any sequent, we can 
find the first logical connective, i.e., the leftmost symbol 
in the whole sequent that is a connective, and apply the ap- 
propriate rule to eliminate it, thereby resulting in one or two 
premises which, taken together, are equivalent to the conclu- 
sion. This process can be repeated until we reach a finite set 
of sequents with atomic formulae only. Each connective-free 
sequent can then be tested for being a theorem or not,, by the ; 
initial rule. If all of them are theorems, then the original 
sequent is a theorem and we obtain a proof • otherwise we get a 
counterexample and a disproof. Some simple samples will make 
this clear. 
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For example/ given any theorem of "Principia", we can auto- 
matically prefix an arrow to it and apply the rules to look for 
a proof. When the main connective la 3, it 13 simpler, though 
not necessary, to replace the main connective by an arrow and 
proceed. For Example: 

*5.21. I— i~'Pi|' v QO'P = Q 

can be rewritten and proved as follows: 

*2.45. ^(PVQ)-+~P (i) 

(i)-+^ P ,PVQ ( 2 ) 

! (2) p- PVQ (3) 

(3)P-*P,Q 
VALID 

*5.2l. ^^P^QO-P=0 (1) 

(1) ^P 4 ^ 1 -" P = Q (2) 

(2) ^¥,^0,-+ PSQ (3) 
(3)/\^ Q - P ^ q >p (4 j 

(4) - P=5 Q,P,Q ( 5 ) 

(5) P - Q,P,Q 
VALID 

(5) Q- P,P,Q 
VALID 



P2a. Rule->~: If <^, X -* a,/), then ^ — A,-^ c^, 
P2b. Rule^-*- : If X, jO •* tt,^, then A/v^,/>— tt. 



P3a. RUle -^^ : If £ - A,</>,p and £ - A,y,p,then£ - A,<j>^0. 

P3b. Rule<# -* j If A,^,^ - i^then A,<f^,/>-> t, 

P4a. Rule -* V : If ^ -* A,<j>,y, p, then~C - A/^, p. 

P4b. Rule V— : If A,<^p-+ tt and A,^,/>-* tt, then A/fvfcp-* tt. 
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P5a. Rule -* 3 

P5b. Rule D -*■ 

P6a. Rule -+■ = 

p6b. Rule= ' -t 



If "£> ,j> - *,f ,/>, then£ —\,4» ?'+',/. 

If \,f, p -*• t and *, f -* t,<^, then *,<£ ?^, f>-+ tr. 

If <£, £ -* X,7/r, yO and ^,"£ -* V<f//>, then % -+ "K^^f. 
If ■ 4> ,f,X, f> *+ * and \,^ 7r,y,fythen *,<£s>f, /)-► T ." 



(2) The LISP Program . We define a function theorem [s] 
whose value is truth or falsity according to whether the sequent, 
s is theorem. 

The sequent 

Is represented by the S-expression 

s*: (ARROW, (^fv/r.^j)*^'- •••Y«^ 

where in each case the ellipsis ... denotes missing terms, and 

where x -£* denotes the S-expression for ^f f 

Propositional formulae are represented as follows; 

1. For "atomic formulae" (Wang's terminology) we use 
"atomic symbols" (LISP terminology). 

2, The following table gives our "Cambridge Polish" way 
of representing propositional formulae with given main con- 
nectives. 

3. cfvlf 

Thus the sequent 
is represented by 

(arrow, (Cand,(not,p),(.not,q))),((equiv,p,q),(or,r,s))) 



becomes 


(N0T,y») 


becomes 


(and, <f *, -y**): 


becomes 


(OR,y»,Y"*) 


becomes 


(IMPLIES, if*,.\jr*) 


becomes 


(equiv, <^*, yr*) 


■PS'Q,RVS" 
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The S-f unction theorem . [sj is given in terms of auxiliary 
functions as follows: 

theorem [s] = thl[NILjNILjcadr[s] jcaddrCs] ] 

thl[al;a2;ajc] » [null[a] -* th2[al;a2jNIL;NIL;c];T ' -*■ 

member[car[a];c3v[atom[car[a]] -* 
thl[[member[car[a]ja^;T -+ cons[car[ 
a];al]J;a2jcdrta];c];T -* thl[alj[ 
me mber[ carta] ;a2] -*■ a2;T-* const 
carta] ; a2] ]; cdrta] ; c] ]] 

th2[al;a2;cl;c2;c] - [nulltc] . -+ th[al;a2jdjc2] jatom[ 

car[c]] -*• t h2 1 al j a2; t member [ear[ 
c];cl] -** cl;T"""*" const carte ]jcl] J; 
c2;cdrtc]]jT-* th2[al,*a2jclj [ 
membert carte ];c2] -* c2;T-* const 
car[c];c2]];cdr[c]]] 

th[al;a2;cljc2] = [nullta2] -+ ^null[c2] Athr[car[c2]j 

al;a2;cljcdrtc2] ];T -*' thi[car[a2]; 
al;cdrta2];cljc2]] 

th is the main predicate through which all the recursions 
take place, theorem , thl and th2 break up and sort the infor- 
mation in the sequent for the benefit of th. The four argu- 
ments of th are: 

al: atomic formulae on left side of arrow 
a2: other formulae on left side of arrow 
cl: atomic formulae on right side of arrow 
c2: other formulae on right side of arrow 
The atomic formulae are kept separate from the others in 
order to make faster the detection of the occurrence of formula 
on both sides of the arrow and the finding of the next formula 
to reduce. Each use of th represents one reduction according 
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to one of the 10 rules. The formula to be reduced is chosen 
from the left side of the arrow if possible. According to 
whether the formula to be reduced is on the left or right we 
use thi or thr. We have 

thi[u;al;a2;cl;c2] - [ 

car[u] » NOT-* thlr[cadr[u] jaija2j r oljc2] ; 
car[u] *» AND-* th2i[cdr[u];al;a2;cl;c2]; 
car[u] - OR-* thli[cadr[u];al;a2;cl;c2]Athli[ 

caddr [ u] ; ai; a2; cl; c2] ; 
car[u] - IMPLIES -Vthli[eaddr[u];al;a2;cl;c2]Athlr[ 

cadr[u];al;a2;cl;c2]; 
car[u] - EQUIV-* th2i[cdr[u];al;a2;cl;c2]Ath2r[ 

cdr[u];al;a2jcl;c2j; 
T -♦ error[list[THLjUjal;a2;cljc2j]] 

fchr[u;al;a2;cl;c2] ■ - E 

car[u] ■» NOT ."* thli[cadr(u];ai;a2;cl;c2]; 
car[u] «• AND -* thlr[cadr[u];al;a2;cl;c2]Athlr[ 

caddr [ u] j alj a2; clj c2] j 
carlu] ■ OR-* th2r[cdr[u]jal;a2|cl;c2]j 
car[u] - IMPLIES -* thll[cadr[u] j caddr [u];al;a2j cl;c2]; 
car[u] m EQUIV-* thll[cadr[u]; caddr [u] ;al;a2;cl;c2] A 

thll[ caddr [ u] ; cadr[ u] ; al; a2; cl; c2] ; 
T -*■ error{THR;ai;a2jcl;c2]]] 

The functions thli T thlr . th2fg f th2r . thll distribute the 
parts of the reduced formula to the appropriate places in the 
reduced sequent. 

These functions are 

thli[v;al;a2;cl;c2] = [atom[v] "*• member[v;cl]V 
th[cons[v;al];a2;ci;c2] ;T '-* member [v;c2]V 
th[al; const v;a2];cl;c2]3 
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thlr[v;al;a2;cl;c2] - [atom[v] -+ member[v;ai]V 
th[alja2j const v; ol] ; c2]|T -*member[vja2]V 
th[al;a2;cl; const vjc2]]] 

th2i[v;alja2;cljc2] = [atom[car[v] ] -*• member [cartvljei] V 
thli[cadr[ v] ; const car[v] j al] ; a2; clj c2] } T -*• member [ 

car[v];c2]V 
thli[cadr[ v] $ alj cons [ cart v] ; a2] ; cl; c2] ] 

th2r[v;alja2;eljc2] - [atomfcartv] ] -*■ member[car[v] jal)V 
thlr[cadr[v];al;a2jcoris[car[v];cl]}c2];T -+ membert 

car[v];a2]V 
thlricadr[vJjal;a2;cljcons[car[v] jc2]]] 

thll[vl;v2;al;a2;cl;c2] = [atomfvl] -*■ member [vljcl]V 
thlr[v2; const vljal]ja2jc±;c2]jT -* member [vljc2]V 
thlr[v2;al;cons[vl;a2];cljc2] ] 

Finally the function member is defined by 

member txju] =s*vnulltu] Atequal[xjcar[u] ]Vmembertx;cdr[u]33 

(3) The LISP Program as Written in S-expresslons . In this 
section we give the translation of the functions of the preced- 
ing section into S-expressions. Note that spaces are used in 
place of commas. 

Wf have 
DEFINE (( 
(THEOREM (LAMBDA (S) (THl NIL NIL (CADR S) (CADDR S)))) 
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THl (LAMBDA (Al A2 A C) (COND ((NULL A) 

TH2 Al A2 NIL NIL C)) (T 

OR (MEMBER (CAR A) C) ( COND ( (ATOM (CAR A)) 

TH1 (COND ((MEMBER (CAR A) Al ) Al) 

T (CONS (CAR A) Al))) A2 (CDR A) C)) 

T (TH1 Al (COND ((MEMBER (CAR A) A2) A2) 

T (CONS (CAR A) A2))) (CDR A) C) ))))))) 

TH2 (LAMBDA (Al A2 Cl C2 C) ""'(COND 

(NULL C) (TH Al A2 Cl C2)) 

(ATOM (CAR C)) (TH2 Al A2 (COND 

(MEMBER (CAR C) Cl) Cl) (T 

CONS (CAR C) Cl))) C2 (CDR C))) 

T (TH2 Al A2 Cl (COND ((MEMBER 

CAR C) C2) 02) (T (CONS (CAR C) C2))) 

CDR C)))))) 

TH (LAMBDA (Al A2 Cl C2) (COND ((NULL A2) (AND (NQT (NULL C2) ) 
THR (CAR C2) Al A2 Cl (CDR C2)))) (T (THL (CAR A2) Al (CDR A2) 
Cl 02))))) 

THL (LAMBDA (U Al A2 Cl C2) (COND 

(EQ (GAR U) (QUOTE NOT)) (TH1R (CADR U) Al A2 Cl C2)) 
(EQ (CAR U) (QUOTE AND)) (TH2L (CDR U) Al A2 Cl C2)) 
(EQ (CAR U) (QUOTE OR)) (AND (TH1L (CADR U) Al A2 Cl C2) 
TH1L (CADDR U) Al A2 Cl C2) )) 

(EQ (CAR U) (QUOTE IMPLIES) ) (AND (TH1L (CADDR U) Al A2 Cl 
C2) (THiR (CADR U) Al A2 Cl C2) )) 
(EQ (CAR U) (QUOTE EQUIV)) (AND (TH2L (CDR U) Al A2 Cl C2) 
TH2R (CDR U) Al A2 Cl C2) )) 
T (ERROR (LIST (QUOTE THL) U Al A2 Cl C2))) 

))) 
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(THR (LAMBDA (U Al A2 CI C2) (COND 

((EQ (CAR U) (QUOTE NOT)) (TH1L (CADR U) Al A2 CI C2)) 
((EQ (CAR U) (QUOTE AND)) (AND (TH1R (CADR U) Al A2 CI C2) 
(TH1R (CADDR U) Al A2 CI C2) )) 

((EQ (CAR U) (QUOTE OR)) (TH2R (CDR U) Al A2 CI C2)) 
((EQ (CAR U) (QUOTE IMPLIES)) (TH11 (CADR U) (CADDR U) 
Al A2 CI C2)) 

((EQ (CAR U) (QUOTE EQUIV)) (AND (TH11 (CADR U) (CADDR U) 
Al A2 CI C2) (TH11 (CADDR U) (CADR U) Al A2 CI C2) )) 
(T (ERROR (LIST (QUOTE THR) U Al A2 CI C2))) 
))) 

(TH1L (LAMBDA (V Al A2 CI C2) (COND 
((ATOM V) (OR (MEMBER V Cl) 
(TH (CONS V Al) A2 Cl C2) )) 

(T (OR (MEMBER V C2) (TH Al (CONS V A2) Cl C2) )) 
))) 

(TH1R (LAMBDA (V Al A2 Cl C2) (COND 
((ATOM V) (OR (MEMBER V Al) 
(TH Al A2 (CONS V Cl) C2) )) 

(T (OR (MEMBER V A2) (TH Al A2 Cl (CONS V C2)))) 
))) 

(TH2L (LAMBDA (V Al A2 Cl C2) (COND 
((ATOM (CAR V) (OR (MEMBER (CAR V) Cl) 
(TH1L (CADR V) (CONS (CAR V) Al) A2 Cl C2))) 
(T (OR (MEMBER (CAR V) C2) (TH1L (CADR V) Al (CONS (CAR V) 
A2) Cl C2))) 
))) 
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(TH2R (LAMBDA (V Al A2 CI C2) (COND 
((ATOM (CAR VJ) (OR (MEMBER (CAR V) Al) 
(THlR (CADR V) Al A2 (CONS (CAR V) CI) 02) )) 
(T (OR (MEMBER (CAR V) A2) (THlR (CADR V) Al A2 CI 
(CONS (CAR V) C2)))) 
))) 

(TH11 (LAMBDA (VI V2 Al A2 CI C2) (COND 

((ATOM VI) (OR (MEMBER VI CI) (THlR V2 (CONS VI Al) A2 CI 

C2))) 

(T (OR (MEMBER VI C2) (THlR V2 Al (CONS VI A2) CI 02))) 

))) 

(MEMBER (LAMBDA (X U) (OR (AND (NOT (NULL U)) 
(EQUAL X (CAR U.) ) ) (MEMBER X (CDR U))))) 
)) 

This causes the functions mentioned to be defined. 

In our test run we next gave 
TRACKLIST ((TH)) () 
which caused the arguments and values of the function th to he 
printed each time the function came up In the recursion. Ac- 
cidentally, it turns out that these arguments essentially con- 
stitute a proof in Wang's style of the theorem* 

In order to apply the method to the sequent 

P"* PVq 
we write 

THEOREM 

((ARROW, (P),((OR,P,Q)))) 


The APPLY operator, for each theorem and argument, evalu- 
ates the proposition and gives the answer as either true (T) 
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or false (P). 

Thus the LISP function theorem in itself suffices to ap- 
ply the Wang algorithm to any trial proposition and determine 
whether or not the proposition is a tautology. 
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4. The LISP Programming System 

In this section are included descriptions of the main 
features of the LISP system. The various ways of defining and 
evaluating symbolic expressions for functions are given, and 
some discussion is added on the use of numbers in LISP. The 
program feature, which is a somewhat FORTRAN- like feature, is 
explained^ and finally the LISP compiler is described. 

4.1 The APPLY Operator 

The basis of LISP programming is the APPLY operator whtch- 
is a synthesis of the apply and eval functions described in 
Chapter 2. The APPLY operator is the interpreter part of the 
LISP system in the sense that S-expressions representing func- 
tions and their arguments are read, interpreted and evaluated 
by apply . The apply now in use is a function of three arguments, 

apply[f;x;p] 

where 

f .«■ an S-expression representing an 3- function .^ of 

n arguments; n>0. 
x = a list of n arguments 
p '■ a list of pairs, each of the form (atomic symbol, 

value), used to assign values to free variables. 

The value of apply [f;x;p] is the value of the S -function, $ , 
evaluated at x, where the values assigned to any free variables 
are the values paired with the corresponding variables on the 
p-list. 
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Example 1 : 

As a simple first example consider the function 

?v[[yjz];cons[car[yI;cdr[z]U 

applied to the list 

((A,B),(C,D)), 

where no free variables need to be assigned. The arguments 
f ,x, and p for the apply function, written in the form of S- 
expressions, are, 

f : (LAMBDA, (Y,Z), (CONS, (CAR,Y), (CDR,Z) ) ) 
x: ((A,B),(C,D)) 
P: ( ) 

and the value of apply [f;x;p] is (A,D), 

Note that the p-list must be included even though it is 
the NIL list. 

Example S ; 

Some care must be exercised in writing the lists x and p 
correctly. In the example, 

f: CAR 

x: ((A,B)) 

P: ( ) 
where apply[f;x;p] - car[(A,B)] = A, 

since car is a function of one variable, the list x must be 
written 'as ((A,B)) where (A,B) is the single argument. The 
list, 

x: (A,B) 

would be wrong. Note also that the LAMBDA definition is not 
needed in this example since the specification of the arguments 
is clear. It would be correct but unnecessary to write 
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f : (LAMBDA, (Y ) , (CAR, Y ) ) 
x: ((A,B)> 
Pt ( ) 

Example 3 '• 

The following example, on the other haridj involves two 
arguments . 

f: CONS 

x: ((A),(B)) 

p: ( ) 

giving 

apply! f;x;p] .* const (A); (B) J ■;-• ((A), B) 

The exact descriptions of function formats acceptable to the 
APPLY operator are discussed further in Section ^.3. 

Example $ z 

As an example involving a p^list we have 

f: (LAMBDA, (Y), (CONS, Y,Z>): 

x: (A) 

P* ((Z,(B))) 

where applytf ,x,p] - *[[y];cons[y; (B)]J[a] =» cons Uf (B) ] »(A,B) 

In this example, the ^-specified argument, Y, is given as A by 
the argument list x, and the free variable, Z, is set by the 
p-list to (B). 

Example f? : 

,The following example involves a recursive function so 
that a label definition is required; 
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substtxjyjz] = [atom[z] -* [eq[yjz] -* x$T "* z]$T -* cons[subst[ 

xjyjcar[z] ]jsubst[x;y;cdr[z] ]}] 

f : (LABEL, SUBST, (LAMBDA, (X,Y,Z), (COND, ( 

(ATOM,Z),(COND,((EQ,Y,Z),X),(T,Z))),(T, 
(CONS(SUBST,X,Y, (CAR,Z) ), (SUBST,X,Y, (CDR,Z) )))))) 

x: ((A,B),D,((D,C),D)) 

P: ( )" 
where apply[fjx;p] = subst[ (A,B);D; ((D,C),D)] = (((A,B),C), (A,B)) 

Note: The system for translating Mr-expressions into S-expres- 
sions given in Chapter 2 would give rise to (QUOTE, T) in lieu 
of T in the above S-expression. It is simpler to be able to 
write T (or F) and so in LISP I the latter usage is required. 
(QUOTE, T) and (QUOTE, P) must be replaced by T and F respective- 
ly, and only; the latter expressions will work. 

A program for the LISP system consists of sequences of 
f;xjp triplets strung together. The APPLY operator automatical- 
ly operates on each triplet in turn and returns with the value 
of the triplet. The details for submitting and running such a 
program are given in Chapter 5* 

4.2 Definitions of Functions in LISP 

In Chapter 2 functions are connected to their names only 
through the. use of the form. LABEL. In the current LISP system, 
there are two further ways a function can be defined: 

The first of these relates to functions defined in the 
system by machine -language subroutines. Such a subroutine for 
a function may be ' already available as part of the LISP system 
itself, in which case it appears among the functions given in 
Section 9, or it may have been produced by the LISP compiler. 
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In either ease, -If 'a. machineilahguage Subroutine 1 defined 
a function, the association list for the name of the function 
(see Section 6.2) bontains the indicator »SUBR' to indicate 
that a subroutine exists. SuBR in turn points to a transfer 
instruction of the form 



TXL subroutine 



n 



where n is the number of arguments of the function. 

Thus the relevant part of the association list has the 
structure, 



• • 



-K 



SUBR 



TXL subroutine , , n 



The other way a function can be defined is by means of a 
LISP S-expression (representing an M-expression), which is to 
be interpreted during the running of a LISP program. In this 
case the indicator »EXPR« is on the association list for the 
name of the function. EXPR points to the S-expression define 
ing the function, as follows: 



EXPR 



• » • 



"(S-expression defining the function) 
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A function defined by an EXPR may be already available in the 
LISP system itself, in which case it appears among the func- 
tions given in Section 9, or it may be defined by the user by 
using the define function. Define is a pseudo-function (see 
Section 4.3) whose effect is to assign definitions of the EXPR 
sort to functions. The atomic symbol for the name of each 
function to be defined must be paired with the S-expression de- 
fining that function. A list of such pairs is then given as 
the argument for define . The APPLY operator acting on define 
of this argument creates, for each function defined, the EXPR 
structure shown above. 

If EXPR is already on the association list for a function, 
it is changed to point to the new S-expression, so that the 
define is really a redefine. 

Consider for example the two functions, ff and art dis- 
cussed in Chapter 3, 

ff[x] = [atom[x] — x;T— ff[car[x]]], 
and 

alt[x] = [null[x]Vnull[cdr[x]] -» x,T - cons[ 
car[x] j alt [ cdr[cdr [xl 1] ] ] . 

These are defined by letting the APPLY operator evaluate the 
following triplet, f;x;p, where x is a list of two pairs. 

f: DEFINE, 

x: (((FF, (LAMBDA, (X), (COND( (ATOM,X),X), 
(T,(FF,(CAR,X)))))), 

(ALT, (LAMBDA, (X), (COND, ( (OR, (NULL,X), 
(NULL, (CDR,X))),X), (T, (CONS, (CAR,X), 
(ALT, (CDR,(CDR,X))) ))))))) 

P* ( ) 
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Note that the argument x' starts with three parentheses: the 
first parenthesis starts the list x^ the second indicates that 
x is a list of one argument, and the third starts the first pair. 
After APPLY has evaluated this triplet/ the define function will 
have put the respective definitions, labelled by EXPR, on the 
association lists of the atomic symbols FF and ALT. Of course, 
define itself is one of the functions already defined and avail- 
able as part of the LISP system. 

Incidentally, a function can be defined in terms of another 
already-defined function- -in which case the S-expresslon be- 
comes simply the name of the established function. For example 
suppose orte wishes to define the function FRST by the pair 
(FRST,CAR). After the define has been applied, the association 
list for FRST will contain the structure 



• • • — :>■ EXPR 



CAR 



where CAR points to the already-established association list 
for CAR. Chains of definitions of this sort are perfectly legal 
in LISP I. 

The function define makes the use of label desirable only 
when the labeled function is itself the result of a computation 
and is not to be put on an association list for storage reasons. 

4.3 Functions Appropriate to APPLY 

Various kinds of functions can be used in LISP program- 
ming. One way of classifying functions is to divide them into 
functions and pseudpT - f unctions . A function in LISP is evaluated 
for its value as such, e.g. car[(A,B,C)] = A, whereas a pseudo- 
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function Is used for its effect rather than its value, e.g. 
define or compile . There is no difference in form however be- 
tween functions and pseudo-functions. 

In this section the classifying distinction will be made 
instead on- the basis of the form of the functions; there are 
atomic functions and compound functions . If the f of the f; 
xjp triplet for the APPLY operator can be stated as an atomic 
symbol, the function is called atomic . All other legal forms 
for f are grouped under the heading of compound functions and 
are discussed below. An atomic function is not necessarily a 
simple or trivial function; it might be defined by a complicated 
subroutine or S-expression occurring on its association list. 

Atomic Functions 

When the APPLY operator evaluates a function which Is 
atomic, that is, represented by an atomic symbol, it searches 
the association list of the atomic symbol for either SUBR or 
EXPR (see Section 4.2 just preceeding). If either is found, 
the function description which it points to, represented by a 
subroutine or an S-expression respectively, is used to evalu- 
ate the atomic function of x (the list of arguments). If 
neither SUBR or EXPR is found on the association list for the 
function, then the p-list is searched for the function's atomic 
symbol, and the expression paired with the symbol is used to 
evaluate the atomic function of x. 



Compound Functions 

If a function is compound it is represented by an S-expres- 
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l 
sion whose first element may be LAMBDA, LABEL, or FUNARG. 

Before treating the different types in detail we recall 

from Chapter 2 that "if § is a form in (the) variables 

x.a , e • • ^x.^, unen ■ 

A \ \ x ^l» • • • i^x\) *& ' 
will be taken to be the function of n variables whose value is 
determined by substituting the arguments for the variables 
x 1 ,...,x in that order in & and evaluating the resulting ex- 
pression. " 

For LABEL, on the other hand, from Chapter 2 we have "in 
order to be able to write expressions for recursive functions 
we introduce another notation: label (a, g) denotes the expres- 
sion $ , provided that occurrences of a within %. are to be 
interpreted as referring to the expression as a whole." 

PUNARG has not been discussed previously; it was intro- 
duced for convenience in writing the 704 system. Generally 
speaking, the use of FUNARG is internal to the system and need 
not concern the user. Its purpose is to tie the correct p-list 
of pairs to the function on which apply is operating. The fol- 
lowing equivalence holds exactly: 

apply[ (FUNARG, f,q);xjp] = apply! f;x;q], 

where q is the list of pairs to be used in place of p in evalu- 
ating f [x]. 



1 
If some different element is used here, or if parentheses 

have been used incorrectly, the APPLY operator will usually 

fail. 
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When the APPLY operator evaluates a compound function, it 
determines first of all which of the three possible cases is 
involved. 

If the S-expression for a compound function begins with 
LAMBDA, the triplet for the APPLY operator will be 

f: (LAMBDA, (Xl,X2,...,XN),g) 
x: (Y1,Y2, ...,YN) 
p: (list of pairs) 

The APPLY operator pairs the dummy variables , XI, X2, , . .,XN, 
with the values given on the list of arguments, x. If the two 
lists are not of the same length an error stop occurs. Other- 
wise the list of pairs is added to the front of the p-list. 
Then the third element of the LAMBDA list, the form £ for the 
function, is evaluated using the enlarged p-list of pairs of 
assigned values. 

The form £, in the LAMBDA expression can be either an 
atomic symbol or a longer S-expression. The following cases 
can occur: 

"E = atomic symbol: The APPLY operator searches the association 
list of the atomic symbol to see if it represents a con- 
stant (signalled by either 'APVAL' or •APVALl 1 on the as- 
sociation list — cf. Chapter 6), and if so the value of f 
is that constant. If the atomic symbol does not represent 
a constant, the p-list is searched for the most recent 
pairing of this atomic symbol, and the value given by this 
pairing is the value of f. Otherwise an error is indicated, 
(see Chapter 8) . 



1 
The list of dummy variables can be the null list, ( ). 
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"£, = (atomic function, arguments): Cf, Example 4, Section 4.1t- 
the APPLY operator evaluates the atomic function as de- 
scribed previously, and the result is the value of f. 

~C ==■ (special form, arguments): See the description below of 
special forms. The value, of f is the value given by, APPLY 
after evaluating the special form. 

£> « (atomic symbol): Note the difference between this % which 
is enclosed in parentheses and the first ? given above. 
The APPLY operator performs the function given within the 
parentheses. For example % = (READ), when operated on by 
APPLY would cause a list to be read from cards. 

%, = (LABEL, t,?): The APPLY operator carries out the evalua- 
tion of the compound LABEL function as described .below. 
The value of f as given by APPLY is the labelling name, t. 
Recall that in all the LAMBDA cases, the dummy variables 
have been paired and put on the p-list before the form ^ 
is evaluated. 

If the S-expression for a compound function begins with 
LABEL, the triplet for the APPLY operator will be 

f : (LABEL, name, definition) 
x: (list of arguments) 
p: (list of pairs) 

(See Example 5, Section 4.1) The APPLY operator pairs the atom- 
ic symbol for the name of the function (the second element in 
the LABEL list), with the definition and adds the pair to the 
front of the p-list. It then applies the definition to the list 
of arguments x Using the enlarged p-list, and the result is the 
value of the function. 
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Note on Special Forms ; 

Certain forms sire classified under the heading of special 
forms and are evaluated differently from the usual case. If 
the first element of an S-expression is one of the special 
forms, the rest of the elements in the S-expression are treated 
in special ways described below under the particular cases. A 
special form is signalled by either FSUBR or FEXPR in place of 
SUBR or EXPR on the association list. Note that special forms 
'cannot be used for the atomic functions discussed above. 

QUOTE is a special form of one argument that prevents its 
argument from being evaluated. The value of a list beginning 
with QUOTE is always the second element of the list. 

COND is a special form which is a conditional expression. 
The part of the S-expression following COND is an arbitrary 
number of arguments, each of which is a pair. For each pair 
the first element is the proposition and the second element of 
the pair is the corresponding expression. The propositions are 
evaluated in sequence from left to right, until one is found 
that is true, and then the expression corresponding to this pro- 
position is evaluated and taken as the value of the entire con- 
ditional* If , there are no propositions that are true, an error 
occurs. 

AND is a special form to test if all of the propositional 
expressions following AND in the list are true. The propositions 
are evaluated -in sequence until one is found that is false or 
until the end of the list is reached. The value of AND is re- 
spectively F or T. 

OR is a special form to test if any of the propositional 
expressions following OR in the list are true. The propositions 
are evaluated in sequence until one is found that is true or un- 
til the end of the list is reached. The value of OR is respec- 
tively T or F. 
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PROG is a special form described under the program fea- 
ture in Section 4.5. 

Other special forms are described in Section 9.2. 

4.4 Numbers in LISP 

LISP II will be able to handle both integers and floating- 
point numbers, but in LISP I integers are not allowed. 

Floating-point numbers in LISP I can be added, multiplied 
and raised to a power. The three functions available for these 
purposes are sum , prdct , expt , and are described in Chapter 9« 

The association lists for floating-point numbers always 
contain the designation »FLO' for float. Floating-point num- 
bers do not appear "on the list of atomic symbols (see Section 
6.2), but on a list of floating-point numbers. These list en- 
tries point to the association lists for the numbers them- 
selves. If a number is negative the indicator, 'MINUS* pre- 
cedes the association list for the number. The detailed 
structure of association lists for floating-point numbers is 
discussed in Section 6.2. 

Numbers are brought into a LISP program by being defined 
within S-expressions, and they must always be quoted. For ex- 
ample the following expression is correct, 

(SUM, (QUOTE, 0.6), X) 

where X stands for a floating-point number which is, for ex- 
ample, paired with X on the p-list. 

The exact rules for punching floating-point numbers for 
the LISP I read program are : 

1) A decimal point must be included but not as the first 
symbol ; 
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Incorrect 


Correct 


6 


6. 


.0 


0.0 


.42 


o.42 


.003 


0.003 



or 6.0 



2) A plus sign or a minus sign may precede a number. The 
plug ilign is not required. 

$) Exponent indication may be used. The power of ten is 
preceded by a sign and may contain one or two digits. Thus 

4.21+10 represents 4.21xl0 10 
26.-2 represents 26xi0~ 2 

4«a ^ Numerical values must be less in absolute value then 

5) Significance is limited to eight decimal digits. 

As an example of the use of numbers in LISP I consider the 
ftfflgfcion length , which finds the number of elements in a list. 
Its definition, in S-expression form, is 

(LABEL, LENGTH, (LAMBDA, (Y), (COND, ((NULL,Y), (QU0TE,0.0)), (T, (SUM, 
(LENGTH, (CDR,Y)), (QUOTE,!. 0)))))) 



4.5 The Program Feature 

The program feature in LISP allows sequences of operations 
(statements) to be expressed in LISP language. The effect is 
rather like a FORTRAN program with LISP statements. Each state- 
ment may be a form to be evaluated, or an atomic symbol, or a 
list beginning with GO or RETURN. The atomic symbols are used 
as location markers within the program. 
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When a list beginning with GO is encountered, the rest of 
that list is evaluated under the assumption that the value will 
be one of the location-marking atomic symbols. Then a search 
is made of the program for this symbol, and when it is found 
the statements following the locating symbol are executed. A 
conditional expression to allow conditional branching may be 
used in a GO list. 

If a list beginning with RETURN is encountered, the rest 
of the list is evaluated and the resultant value is the final 
value of the entire program. 

The other statement forms appearing in a program are evalu- 
ated in sequence but the resulting values are ignored. This im- 
plies that these forms are important mainly for their actions, 
such as changing lists of various sorts, rather than for their 
values . 

A program form has the structure, 

(PROG>L, sequence of statements) 

where PROG signals to the APPLY operator that a program for se- 
quential execution is to follow. The list L is a list of pro - 
gram variables which are handled in a manner similar to that 
for dummy variables, although the two types must be distinguished. 
The sequence of statements is the program to be executed. 

The program variables are set equal to NIL at each (non- 
recursive) entrance to the program, but their values may be 
changed at any point whatsoever in the computation. For ex- 
ample programs can occur within other (higher-level) programs 
and in such cases an inner program can change any program varia- 
ble of a higher-level program as well as its own program variables, 
The functions available for changing program variables are set 
and setq . The function set is a function of two variables both 
of which are evaluated. Thus to set a program variable V equal 
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to the value of an expression E, the V must be quoted in the 
S-expression, 

(SET, (QUOTE, V),E). 

The function setq on the other hand treats its first argument 
as if quoted and evaluates its second argument only. Thus the 
S-expression becomes 

(SETQ,V,E), 
which is entirely equivalent to the previous, and usually more 
convenient . 

The following is an example of a program using the program 
feature. It is a version of search, (see Chapter 2). 

searchUjpjf ;u] = [null[i] -*■ ujp[i] -* f[i];T-* search[ 

edp[i];p;f;u]] 

Although the entire program is in the form of a large list, for 
ease of reading it has been spaced out below in the form of a 
sequential program, with the location-marking atomic symbols 
set out to the left. The program variable is LT. The LAMBDA 
expression for this program for the APPLY operator is, 

(LAMBDA, (L,P,FN,U), (PROG, (LT), 

(SETQ,LT,L), 
TEST, (GO, (COND, ((NULL,LT), (QUOTE, RETU) ), (T, (QUOTE, CONT) ))) , 
CONT, (GO, (COND, ((P,LT), ( QUOTE, RETF) ) , (T, (QUOTE, STEP )))) , 
STEP, (SETQ,LT, (CDR,LT) ) , 

GO, (QUOTE, TEST)), 
RETU, (RETURN, (U)), 
RETF, (RETURN, (FN,L) ) 

)) 

In the above note that a function of no arguments, such as 
u, must be put in parentheses in order to be evaluated. Cf. (U) 
in the line starting with RETU. 
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Since the program feature will be used frequently in the 
manual to describe LISP functions, and since M-expressions are 
easier to read than S-expressions, programs will usually be 
written down in M-type notation. Program variables will be 
given in lower case, but the atomic symbols used as location- 
marking symbols will be retained in capital letters. The ex- 
pression 

(SETQ,X,Y) becomes x = y. 

Using these rules and other obvious extensions of them the a- 
bove program is written as follows: 

program for seareh[i}p;fn*u] with program variables it: 

it = i 
TEST go [null [it] -► RETU;T -* CONT] 
CONT go[p[it] -* RETF;T -* STEP] 
STEP it = cdr[i] 

go [TEST] 
RETU return[u] 
RETF return[fn[i] ] 



4.6 The Compiler 

The LISP compiler is itself a pseudo-function which is 
available to the APPLY operator. The compiler is called in by 
the LISP function, 

corodef [x], 

where x is a list of names of the functions to be compiled. 
Each function on the list will be compiled into a binary ma- 
chine program provided the function is defined on its associa- 
tion list by an indicator EXPR pointing to an S-expression. 
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The value of corndef is a list of the names of the functions it 
was able to compile . 

The compiler proceeds in three stages 

1) Generation of LISP-SAP 

2) Generation of binary program 

3) SUBR put on association list 

LISP-SAP is SAP in list form, for example 

(( ,LXD,0,4),( ,TXI,G0007,4,-1),( ,TRA,*+5), (G0008,BSS,0), . . . ) 

In this example, the objects beginning with G are atomic sym- 
bols generated for use within the compiler. The BSS,Q in the 
last element above is used as it is in SAP to tag symbols 
which need to have a memory location assigned to them, but no 
actual space reserved for them, i.e. the usual location-field 
SAP symbol. 

The LISP-SAP program for each function compiled is printed 
out, on-line or off-line depending on the sense-switch settings. 

After the compiler has created the LISP-SAP program for a 
function, the binary program is generated from LISP-SAP in two 
passes. In the first pass all symbols associated with BSS,0 
are assigned locations in memory. In the second pass each in- 
struction is assembled into memory. Then any unassigned sym- 
bols found during the second pass are assigned locations in 
memory following the generated instructions. 

When the binary program has been generated, the compiler 
puts on the functions association list the indicator SUBR point- 
ing to a TXL to the binary program. 

After a function has been compiled, it can be used as if 
it had been defined, but of course it will run much faster than 
it would have as an interpreted expression. 

If a function listed in corndef has SUBR on its association 
list already, the compiler ignores the request for compilation 



-55- 



and goes ahead after printing out 

(function name) HAS BEEN ALREADY COMPILED 

If a function has not been defined at all, i.e. has neither 
EXPR or SUBR on its. association list, the compiler prints out 

(function name) IS NOT DEFINED 

and goes on. 

If a programmer has a collection of functions which he 
wants to compile and if some of the functions use each other as 
subf unctions, a certain order of compilation should be followed. 
If a function f uses a function g as a subfunction, then g 
should be included in a comdef which comes before the comdef 
involving f except in the following special case: if a closed 
circle of function usage occurs, e.g. 

f^ uses f 2 
f 2 uses f o 



f uses f^, 

then all of the functions in the circle must be compiled in 
the same comdef . Thus the functions listed in a given comdef 
should be either unrelated or related in this circular sense. 
Any other subfunctions on which they depend should have been 
compiled by a previous comdef . 

Note :; The above rule on order should be followed for 
maximum compiling efficiency. It is also possible to compile 
all functions in one comdef regardless of dependency. The one 
unbreakable rule is that if a function f uses a function g as 
a subfunction, g cannot be compiled in a comdef which comes af- 
ter the one containing the f . 



-56- 



Another pseudo-function, compile [i], is available to com- 
pile functions not previously defined. The argument Z of compile 
is a list of function definitions, each one of which must be of 
the form 

(LABEL, NAME, (LAMBDA, (list of. free variables ), expression ) ) 

The functions caar , cadr , . « . , cddar , cdddr are available to 
the compiler, so it is possible to write simply (CADAR,X) in 
lieu of (CAR, (CBR, (CAR,X))) in defining a function, if a 
string of A's and D's of length greater than three is required, 
it is again necessary to form the function by composition, i.e. 
(CDADR(CAR,X)) for (CDADAR,X). 

The compiler will accept any function definition which is 
acceptable to the APPLY operator, except that the program fea- 
ture is different insofar as the GO statement is concerned. 
For the compiler version of PROG the argument of any GO must be 
an atomic symbolj it cannot be a conditional expression. How- 
ever, in distinction to the usual program- feature, conditional 
statements are themselves allowed as action statements by the 
compiler provided they give rise to a definite action, e.g. 
{COND, (PI, (00,A)), (P2, (RETURN,X)), (P3, (SETQ,B, (CAR,B)))). 
Furthermore, conditional expressions as used here do not need 
to include a true (T) action. If none of the conditions are 
satisfied, the next statement in the program following the 
conditional statement is executed. 

Thus the example of the PROG for search given in the pre- 
vious section must be revised for the compiler to the following 

(LAMBDA, (L,P,FN,U), (PROG, (LT), 
(SETQ,LT,L), 
TEST, (COND, ((NULL,LT), (RETURN, (U) )),( (P,LT) , (RETURN, (FN,L)) )), 
(SETQ,LT, (CDR,LT)), 
(GO, TEST) 
)) 
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In terms of the M- type notation introduced in the previous 
section this becomes: 

compiler program for search[i,p,fn,u] with program 
variable it; 

it = L 
TEST [null[it] -*■ return[u];p[it] -* return[fn[i] ] ] 
it » cdr[it] 
go [ TEST ] 

In writing programs for the compiler the function setq must 
be used — set is not acceptable. 

Amplification of the compiler system is under way. In 
particular a feature will be included to permit a user to write 
SAP-type programs defining functions. Such programs will rep- 
resent a third way (in addition to EXPR and SUBR) of defining 
functions on their association lists, and should add flexibility 
to the system. SAP-program definitions of functions will be 
termed * Macros' and will be described in a later memo. 

Two examples of compiled functions are given below. 
1) memlis [x;y] 

The function memlis [x;y] is a predicate whose value is true 
if x is a member of the list y, and false otherwise, x can be 
an atomic symbol or a list. 

In the program below the compiler has generated certain 
atomic symbols (G0005, G0006, G0008, G0009) as location refer- 
ences in the program, and other symbols to be used as temporary 
storage as indicated below. 

G0001) Index Register 4 at entry to memlis subroutine 

G0002) Storage for x 

G0003) Storage for y 

G0004) Storage for final answer (true or false) 
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G0007) Storage for the program variable Ml 
G0010) Temporary storage 
G0011) Temporary storage 

The arguments x and y are stored in the AC and MQ at entry, 
and the answer is in the AC at exit. 

The subroutine for equal [ a; b] expects its two arguments in 
the AC and MQ and comes back with either zero (false) or one 
(true) in the AC. 

The resulting LISP-SAP program is listed below exactly as 
the compiler gives it on the output sheet, except for explanatory 
comments to the right of the instructions. 

FUNCTION APPLY(F,L,A) HAS BEEN ENTERED, ARGUMENTS.. 
COMPILE 

( (LABEL, MEMLIS, (LAMBDA, (X,Y), (PROG, (Ml), (SETQ,M1,Y),M2, (COND, 
(NULL,M1), (RETURN,F)), ((EQUAL, (CAR,Ml),X), (RETURN, T ))) , (SETQ, 
M1,(CDR,M1)),(G0,M2)))))) 
MEMLIS, BSS,0) 

,SXD,G0001,4) save index register 4 

,ST0,G0002) store x 

,STQ,G0003) store y 

,CLA,G0003) 

,ST0,G0007) set Ml = y 

G0006,BSS,0) location M2 

,CLA,G0007) 

,TNZ,G0008) to G0008 if null[Ml] = F, or 

,CLA,$ZERO) return with AC = F if null[Ml] = T 

,TRA,G0005) 
G0008,BSS,0) 

,LXD,G0007,4) 

,CLA,0,4) 

,PAX,0,4) car[Ml] ' 
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,SXD, 00011,4) 

,LDQ,G0002) 

,CLA,G0011) 

,TSX,EQUAL,4) 

,ST0,G00010) 

,CLA,G00010) 

,TZE,G0009) 

,CLA,$0NE) 

,TRA, 000.05) 
G0009,BSS,0) 

,LXD,G0007,4) 

,CLA,0,4) 

,PDX,0,4) 

,SXD,G0007,4) 

,TRA,G0006) 
G0005,BSS,0) 

,ST0,G0004) 

,CLA,G0004) 

,LXD,G0Q01,4) 

,TRA,1,4) 



x 
car[Ml] 

result of equal test (note that the 
compiler stores everything it computes) 
transfer if car[Ml] ./ x 
otherwise return with AC = T 



cdr[Ml] 

set Ml = cdr[Ml] 



answer (true (one) or false (zero)) 

restore original index register 4 
return 



END OF APPLY, VALUE IS . . . 
(MEMLIS) 

2) maplist txjg] 

The function maplist [x;g] is more complicated than the pre- 
vious example, due both to its use of a function g, and to the 
fact that mapllst may itself be used recursively by g. The lat- 
ter fact requires that the arguments be saved each time the 

routine is entered, and this is done by storing them in a pub- 

i 
lie push-down list. The current next available space in this 



See page 144 of the Quarterly Report referred to on the first 
page of Chapter 2. 



•60- 



push-down list is indicated by the (complement of the) compiler 
public push-down list indicator, $CPPI. This indicator is test- 
ed by the program against the last available space in the list, 
($ENPDL, or end of push-down list), and when there is no more 
space available an error transfer to $N0PDL stops the computation. 

Another use of storage is illustrated below by the cons 
function which sends the result of the cons to free storage. 
Each time the cons is used, a test is made of the indicator, 
$FREE, which gives the (complement of the) next free-storage lo- 
cation available. When free storage has been used up the sub- 
routine $FR0UT is used to call in the garbage collector to retrieve 
some storage. (See Section 6.3.) 

The treatment of the function g depends on whether it is de- 
fined by a subroutine or by an S-expresslon to be interpreted. 
If there is a subroutine for g, g will be in the form of an in- 
struction 

TXL(subr),0,0 

stored in location G0003, so that the TSX,G0003,4 in the program 
below amounts to a transfer to the subroutine. If g is defined 
by an S-expression, then g, as stored in G0003, will have a dec- 
rement pointing to the S-expression. The subroutine COMPAT be- 
low carries out the interpretation of the expression using the 
APPLY operator. Incidentally, the 1 in the line following the 
use of COMPAT has been set up by the compiler to indicate that 
g is a function of one argument. 

The LISP-SAP program is the following: 

FUNCTION APPLY (F,X,P) HAS BEEN ENTERED, ARGUMENTS.. 

COMPILE 

(( (LABEL, MAPLIST, (LAMBDA, (X,G), (PROG, (Ml,M2), (COND, ( (NULL,X), 

(RETURN,NIL))), (SETQ,M1, (CONS, (G,X),NIL) ), (SETQ,M2,Ml),Al, 

(SETQ,X, (CDR,X)), (COND, ((NULL, X), (RETURN, Ml ))), (RPLACD,M2, 

(CONS, (G,X),NIL) ) , (SETQ,M2, (CDR,M2) ) , (GO, Al) ) ) ) j ) 
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(MAPLIST,BSS,0) 

( ,SXD,G0001,4) 

( ,STQ,$ARG2) 

( ,LXD,$CPPI,4) 

( ,TXH,*+2,4,$ENPDL) 

( ,TSX,$N0PDL+1,4) 

( ,LDQ,G0001) 

( ,STQ,0,4) 

( ,LDQ,G0003) 

( ,STQ,1,4) 

( ,LDQ,G0011) 

( ,STQ,2,4) 

( ,LDQ,G0002) 

( ,STQ,3,4) 

( ,LDQ,G0009) 

( ,STQ,4,4) 

( ,TIX,*+1,4,5) 

( ,SXD,$CPPI,4) 

( ,LDQ,$ARG2) 

( ,ST0,G0002) 

( ,STQ,G0003) 
( ,CLA,G0002) 

( ,TNZ, 00008) 
( ,CLA,$ZERO) 

( ,TRA,G0005) 
(G0008,BSS,0) 
(G0007,BSS.,0) 
( ,CLA,G0002) 
( ,LXD,G0003,4) 
( ,TXH,*+3,4,0) 
( ,TSX,G0003,4) 
( ,TRA,*+4) 
( ,SXD,*+2,4) 



save index register 4 

store g in temporary storage to free MQ 
compiler push-down list indicator 
transfer to *+2 if space available 
Otherwise (no more left), stop on error 

current index register 4 -*■ push-down list 

current g -*■ push-down list 

current M2 -*• push-down list 

current x -* push-down list 

current Ml ■* push-down list 

update push-down list indicator 

store x 
store g 

null[x] = F 

null[x] - T 

return, value = NIL 

null[x] = P 

extra (unused) line due to compiler 

x -*. AC 

S 

transfer if g is S-expression 

otherwise use g as subroutine 

returns here from subroutine for g 

set up pointer to S-expression for COMPAT 
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( ,TSX,C0MPAT,4) 
( ,0,1) 
( ,ST0,G0010) 
( ,LXD,$FREE,4) 
( ,TXH,*+2,4,0) 
( ,TSX,$FR0UT,4) 
( ,CLA,0,4) 
( ,STD,$FREE) 
( ,CLA,G0010) 
( ,ARS,18) 
( ,ADD,$ZER0) 
( ,ST0,0,4) 
( ,SXD,G0009,4) 
( ,CLA,G0009) 
( ,ST0,G0011) 
(G0006,BSS,0) 
( ,LXD,G0002,4) 
( ,CLA,0,4) 
( ,PDX,0,4) 
( ,SXD,G0002,4) 
( ,CLA,G0002) 
( ,TNZ,G0013) 
( ,CLA,G0009) 
( ,TRA,G0005) 
(G0013,BSS,0) 
(G0012,BSS,0) 
( ,CLA,G0002) 
( ,LXD, 00003,4) 
( ,TXH,*+3,4,0) 
( ,TSX,G0003,4) 
( ,TRA,*+4) 
( ,SXD,*+2,4) 
( ,TSX,C0MPAT,4) 



"1" means g has one argument 

g(x) 

next free-storage location 

out of free storage — retrieve some 

update next free-storage location 



cons [g(x); NIL] 

set Ml = cons [g(x); NIL] 

set M2 = Ml 
location Al 



set x s= cdr[x] 

nullfx] = F 
null[x] = T 
return, value = Ml 

etc. 
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( ,0,1) 

( ,ST0,G0015) 

( ,LXD,$FREE,4) 

( ,TXH,*+2,4,0) 

( ,TSX,fFR0UT,4) 

( ,CLA,0,4) 

( ,STD,$FREE) 

( ,CLA,G0015) 

( ,ARS,l8) 

( ,ADD,$ZER0) 

( ,ST0,0,4) 

( ,SXD,G00l4,4) 

( ,LXD,G0011,4) 

( ,CLA,G0014) 

( ,STD,0,4) 

( ,LXD, 00011,4) 

( ,CLA,0,4) 

( ,PDX,0,4) 

( ,SXD,G0011,4) 

( ,TRA,G0006) 
(G0005,BSS,0) 

( ,ST0,G0004) 

( ,LXD,$CPPI,4) 

( ,TXI,*+1,4,5) 

( ,SXD,$CPFI,4) 

( ,LDQ,0,4) 

( ,STQ,G00Q1) 

( ,LDQ,1,4) 

( ,STQ,G0003) 

( ,LDQ,2,4) 

( ,STQ, 00011) 

( ,LDQ,3,4) 

( ,STQ,G0002) 



all as before, g(x) 



all as before, cons [g(x)j NIL] 



replacd[ M2; cons [g(x); NIL] ] 



M2 - cdr[M2] 

go to Al 

return 

store answer temporarily 

prepare to restore Items 
from the push-down list 

restore index register 4 

restore g 

restore M2 

restore x 



-64- 



,LDQ,4,4) 

,STQ,G0009) restore Ml 

, CLA, G0004 ) answer -* AC 

,LXD,G0001) 

,TRA,1,4) return 



END OF APPLY, VALUE IS . . . 
(MAPLIST) 
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5. Running a LISP Program 

In this section, various aspects of running a LISP program 
are discussed. In Section 5.1, we discuss how to punch cards, 
put together a running deck, and submit a run. In Section 5.2, 
the tracing program is described. Section 5*3 encompasses a 
brief discussion of the current state of the LISP-Flexo system* 
The error indications given by the LISP I system when running 
a LISP program have been relegated to a late section (Chapter 8) 
since they are in the nature of a reference look-up list. 

5.1 Submitting a Run 

As stated in the previous section, the foundation of LISP 
programming is the APPLY operator, which is based on the function 
apply [f;x;p3. The function f must have been defined by the 
define function or by one of the other ways mentioned previously. 
A LISP program consists of sets of triplets, f;x;p, which are 
punched on cards and submitted in the appropriate order in a 
deck. 

Card Punching 

Columns 1-72 (inclusive) of a punched Card are read by the 
LISP read program. The S-expression for the f, x, and £ of each 
triplet should be punched on cards with one or more spaces (blanks) 
between each member of the triplet. There are no rules about the 
location of the expression oh the card; a new card may be started 
at any point in an expression, and the punching on a given card 
may stop at any column before column 73. In other words, card 
boundaries are ignored. The read program reads until it finds 
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the correct number of final parentheses. 

The current version of the read program interprets a blank 
(space) as a comma, so that no blanks are allowed within atomic 
symbols. The read program ignores redundant commas so that a 
double blank for example is read as a single comma. 

Deck Format 

A LISP program to be run must be preceded by an LCON deck 
which calls the LISP system from tape. The LCON deck consists 
of five cards labelled NYB0L1 followed by six cards labelled 
LCON. If the LISP program is being run at the M.I.T. Computa- 
tion Center, copies of the LCON deck may be found in room 26-265 
in the drawer labelled "Utility Decks". 

There are five possible direction cards that can be used 
following the LCON deck. These cards have the direction (TST, 
SET,PLX,CRD, or PIN) in columns 8-10 of the card and have the 
following effects: 

TST; Subsequent triplets are read in until a STOP card 

(see 4. of the deck format below) is reached. The 
lists read are put out onto tape 2 for off-line print- 
ing together with a list of the atomic symbols in the 
machine. Control is then sent to the APPLY operator 
which operates on each triplet in turn, putting out on 
tape 2 the triplet f;x;p followed by the value of 
apply [f;x;p]. If any errors are found, an error indi- 
cation is printed out. After all the triplets have 
been evaluated, the memory is restored to its state at 
the beginning of this TST, 



-67- 



SET: This card works the same way as TST except that 

immediately after all the triplets have been evaluated 
the state of the memory as it stands is read out onto 
tape 8 as the new "base" image for the memory. Future 
TST cards will restore the memory to this new "base" 
state. If more SET cards are used, the functions fol- 
lowing them will be compounded into the "base" image. 
If an error occurs during the evaluation of a triplet 
in a SET the new base image for that SET is not written 
out on tape . 

Note: The variable field (columns 12-72) for both SET 
and TST cards should contain the problem number, the 
programmer's number and name, and any other identifi- 
cation desired. 

FLX*: The Flexowriter mode of operation (see Section 
5.3) is called into control. 

CRD*: Control is returned from the Flexowriter back to 
the card reader. 

FIN: The computer stops. 

Any other card, such as a SAP REM card, may be included 
in a deck between a STOP card and the next direction card. The 
card will be printed out but will have no other effect. Such a 
card in any other position in the deck will cause trouble; 



*The FLX and CRD direction cards are not understood by the basic 
LISP system; only the LISP-flexo system can interpret them. 
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A running deck (assuming no use of FLX or CRD) has the 
following format. 

1. The LCON deck 

2. A TST or SET card 

3. The sequence of triplets f;x;p, on which the apply 
function is to operate 

4. A STOP card which contains the word STOP followed 
by a large number of right parentheses followed by 
the word STOP again, 

STOP))))))))STOP 

This information may be placed anywhere within 
columns 1-72 on the card. It is used to guarantee 
the safe completion of the reading program. 

5. Cards such as in (2,3,4) above, repeated as often 
as desired. 

6. A FIN card 

7. Two blank cards ( to prevent the card reader from 
hanging up) 

Operating Instructions 

Tapes used: 

TAPE NUMBER USE 

2 Off-line printed output (suppressed by 

sense switch 5 down) 

4 Off-line card input (only if sense switch 

1 up) 

7 Off-line punched card output 

8 Temporary storage 

9 LISP system tape 
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Sense switches used: 
SWITCH NUMBER USE 

1 UP: Off-line card input (tape 4) 

DOWN: On-line card input 

3 UP: Suppress on-line printing 

DOWN: Print on-line 

5 UP: Write all printing on tape 2 for 

off-line printing 

DOWN: No off-line printing 

Both on-line and off-line printing can be done at the same time. 

All the above switches, take, effect: immediately. 

If a LISP program is being run at M.I.T. the following in- 
dications should be given on the performance request card: 

1) Production run 

2) Switch 1 down 

3) LISP system tape on tape drive 9* The current 
number of this tape is posted in room 2.6-265 and 
on the bulletin board in the 704 scheduler's room 

4) Machine tape on tape drive 8 

5) Output tape (usually machine tape) on tape drive 2 

6) Tapes 8 and 9 are rewound by the program 

7) Operating instructions are 

CLR (clear) 

LCD (Load cards) 

The deck should be submitted along with its performance re- 
quest card to the "regular runs" file in the scheduler's office. 
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5.2 Tracing Option 



A LISP tracing function called tracklist is available to 
help the user locate his program- errors . Of course, as with 
any tracing system, tracklist consumes both time and paper, but 
in some cases it may prove helpful. 

The function tracklist is a function of one argument, x, 
which is a list of the LISP functions to be traced. Each func- 
tion mentioned in the list -must be a function which has EXFR, 
PEXPR, SUBR or PSUBR on its association list. Further if 
tracklist is to trace a function which is on . the* "iop-leyel« 
of APPLY, i.e. the f in applytf ;x;p], then the S -express ion for 
f must start with LAMBDA or LABEL. Finally tracklist cannot 
trace the functions 



car 
cdr 
cons 
list 



Whenever one of the functions included in the argument of 
tracklist is encountered during the running of the LISP pro- 
gram, tracklist gives a print-out (on or off-line depending on 
sense switch 3) of the name of the function, its type, e.g. 
SUBR, its arguments, and finally its value. Thus the path of 
computation followed by the program is recorded. 

If tracklist is called into action within a computation 
preceded by a SET direction card (see Section 5.1), it con- 
tinues to trace its arguments for the rest of the run (provided 
the SET card is successful and determines a new "base" image). 
If blacklist occurs within a computation preceded by a TST di- 
rection card it continues only up to the STOP card. 
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5.3 The Flexowriter System (for M.I.T. users only) 

The possibility of running LISP programs on line using the 
Flexowriter as access to the 704, and time-sharing with an 
"innocent victim" is under development at M.I.T. The current 
version of the LISP-Flexo system is described here, but it is 
subject to change. The reader who might wish first of all to 
become familiar with the Flexowriter system, can find a write- 
up of it, although for a different purpose, in Professor 
Herbert M. Teager's memo, Programming Manual for the M.I.T. 
Flexowriter Monitor Interpreter System of Time -Shared Program 
Testing . 

The LISP-Flexo System enables the user to read function 
definitions into the 704 from cards or to type them in on the 
Flexowriter, and to control the operation of LISP via Flexo- 
writer type-ins. 

Operating Instructions 

To use the LISP-Flexo System on the M.I.T. 704 one must 

(1) Turn on the two power switches for the Flexowriter 

(2) Turn off the alarm clock 

(3) Turn off the back interrupt switch 

(4) Put the LISP-Flexo System tape on tape drive 10 

The output will be either on the on-line printer or on the 
Flexowriter, at the option of the user. The input deck to be 
put into the card reader has the following format, 



1 
The LISP-Flexo system does not contain the compiler option. 
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1. GETOPFLEX card to call the M.I.T. Automatic Operator 

program and the Flexowriter programs in from 
the M.I.T. System tape 

2. GETLISP card to get the LISP-Flexo System in from tape 10 

3. Binary or octal correction cards currently needed for the 

LISP-Flexo System (obtainable along with the three GET 

cards from room 26-265) 

4. GETLISP2 card to transfer into operating program 
5» PLX direction card--see Section 5.1 

6. Cards containing the triplets on which the APPLY operator is 
to operate, provided the triplets are to be read in rather 
than typed in on the Flexowriter. The last triplet must be 
followed by two cards of the form 

IOFLIP(READ), (),))) ))))), 

where the extra parentheses are used as insurance. See be- 
low for a description of the function IOFLIP. If no trip- 
lets are to be read in, no cards need be placed between the 
above FLX card and the FIN card below. 

7. FIN direction card--see Section 5.1 

8. 2 blank cards for the card reader 

In the following description of the Flexowriter system, 
the three symbols 3&- ,— * , and b will be used, where 
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jl indicates carriage return 

-*■ . indicates a tab 

b indicates a blank (space) 

When cards are read in on the card reader the FLX card 
transfers control to the Flexo- APPLY operator. The Flexo- 
writer then types out GO and waits for an input. The system 
at this time expects a LISP program to be typed on the Flexo- 
writer. However, if there are cards in the card reader which 
contain the LISP program, the type-in to send control to the 
reader is 

IOFLIP(READ), () j^ 

After the carriage return, cards containing the triplets for 
the APPLY operator will be read in from the card reader and 
applied. 

If a program is to be typed in on the Flexowriter there 
are two possible modes of operation, the Sequence -Mode and the 
TEN-Mode . In the Sequence-Mode the entire S-expression for a 
triplet f;x;p for the APPLY operator is typed in sequentially, 
and at the end of the three lists the APPLY operator operates 
on them. This is satisfactory theoretically; but in practice, 
due to the difficulty of typing S-expressions, it is inconvenient, 
since an error anywhere in the expression requires correcting, and 
if the error was in a previous line, (see Errors below) it cannot 
be deleted at all. The TEN-Mode was developed to obviate this 
difficulty and to allow the user to type S-expressions in small 
fragments independently erasable. Below we describe in more de- 
tail the use of the two modes. 

Sequence -Mode 

When the FLX card of the input has transferred control to 
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the Flexo-APPLY operator, and the Flexowriter has typed out GO, 
the S-expressions for an APPLY triplet, f;x;p, should be typed 
on the Flexowriter. The typing is done by typing up to 72 
characters (fewer if desired) followed by a carriage return. 
The Flexowriter then types out STOP and digests the information 
to date. If a full triplet has not been completed, the Flexo- 
writer types out GO as a request for more of the triplet. If a 
triplet has been completed, the APPLY operator takes over and 
performs the triplet, typing out the answer followed by a GO 
requesting the next triplet. 

To stop the computation, one may respond to an initial GO, 
or to a GO following the use of the APPLY operator, or to a GO 
following an error* (but not to a GO at other points, such as 
in the middle of list type-ins), by typing in 

— STOP £ 

The Flexowriter then types out STOP and returns control to the 
control routine which types out GO and expects a direction type- 
in. One can then type either 

"* bFINbb 3 

to end the run, or 

-♦bCRDbb^ 

to return control to the card-reader for the next direction 
card, e.g. TST, SET, FLX, FIN. 



# 



Such a GO will hereafter be referred to as a "fresh" GO. 
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TEN-Mode 

There are ten buffers of core storage for S- express Ions 
set aside for use by the TEN-Mode of operation. Pieces of an 
S-expression can be typed into these buffers in any sequence, 
with overwriting allowed, and the Plexo -APPLY operator can be 
asked to operate on any set of consecutive buffers, e.g. 
through 6, or 4 through 9« 

To use the TEN-Mode, one may respond to a "fresh" GO (see 
preceding footnote) by typing in 

-TENp, 

Then type in a number from to 9 representing one of the ten 
buffers, and then a tab, and then a (piece of a) S-expression 
and then a carriage return, as in 

8-* ((A,B),C)^ 

The Plexowriter will then type out a colon, :, and one can type 
into another buffer register in the same way as above by typing 
a buffer-register number, a tab, the information, and finally a 
carriage return. 

When an entire triplet has been typed in, the APPLY operator 
can be called for by typing, in response to the colon type-out,, 
the read-line direction, 

-+ RLN^ 

Then two numbers followed by a carriage return must be typed in, 
n^ n 2 , e.g. 01 , or 69 , or 99 . All the buffer registers, 
n* to n 2 inclusive, are then turned over to the read program, 
which reads them in, printing out the number of each register as 
it is read. When a complete .triplet f;x;p has been found by the 
read program, the APPLY operator operates on the triplet, prints 
out the answer, and then returns control to the read program. 
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The read program reads ahead until it finds either three more 
lists for a triplet or until it has read n 2 . In the first case, 
the APPLY-operator takes over as above. In the second case, the 
Flexowriter types out GO. The typed-in response to this GO may 
be either another read-line direction, or a type-in into a buf- 
fer register as described previously. Note that the read pro- 
gram as used in the TEN-Mode remembers any incomplete lists it 
may have been reading at the end of the previous RLN request, 
and considers this information to be the initial part of the 
next material read. 

To stop the operation of the TEN-Mode, provided no error 
has occurred, one types into two consecutive registers, in re- 
sponse to a "fresh" GO (see previous footnote), 

:n^ -* STOP j>. 

: n i+1 -*■ bPINbb \ 

Then one does a RLN of these two buffer registers to end the 
run completely. One can instead replace the above PIN by a 
CRD if one wishes to send control back to the card reader. 

To stop the operation of the TEN-Mode after an error has 
occurred, one types, in response to any GO, into three con- 
secutive registers n ± , n ±+1 , and n ±+2 

several 
:n ± -)))))))^ 

:n 1+1 -STOP^ 

in ± + 2 ■*"* bFINbb^ (or CRD in place of PIN) 

Then one does a RLN of these three buffer registers. 

To get from the TEN-Mode back to the Sequence -Mode one 
types in, in response to a GO, 

~* ONE -v 
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Errors 

Typing errors may be erased by hitting the backspace key 
which will erase the preceding character, or by hitting the 
underline key, which will erase the entire line. Several charac- 
ters at a time can be erased by using the backspace key the ap- , 
propria te number of times ,, but lines above the current line can 
never be recovered for erasure. 

Extra right parentheses give a read error. 

The error type-outs described in Chapter 8 appear on the 
Plexowriter without the sentence describing the error, for ex- 
ample, 

ERROR NUMBER :A2: 

and this type-out is followed by the argument of the error if 
it had one. The read program does not stop at the error; in the 
TEN-Mode the read program goes on to read a new triplet in the 
register following that in which the error occurred, in the Se- 
quence-Mode the read program starts reading the next line typed 
in. 

Other Flexowriter Monitor Type-ins 

At any time except when the Plexowriter is itself typing 
out a message one may type in any of the monitor directions, de- 
scribed in Professor Teager's memo, QUE, ENT, EXE, IiDC, BKP, TEN. 

The Functions ioflex(x) and ioflip'(y) 

Two special functions ioflex and ioflip are available in 
the LISP-Flexo, System. They are functions of one argument and 
a null p-llst, and they have the following effects: 
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Ioflex(x) is a predicate which has the value true (T) or 
false (F). If x = READ the predicate asks if the Flexowriter 
is in the reading (type-in) mode; if x = PRINT the predicate 
asks if the Plexowriter is in the printing (type-out) mode; and 
if x is something else an error message followed by F is typed 
out. 

Iof lip (y ) is an operative function which changes control 
as follows: 

y = READ flips control between reading from 

cards or reading from type -in on 
the Flexowriter 

y = PRINT flips control between printing on 

the on-line printer or by Flexo- 
writer type-outs 

y = anything else flips the last pair that was flipped. 

It assumes initially that this was a 
READ. 

Note At certain times the LISP-Flexo System may hang up trying 
to read the card reader. How it gets into this trouble, and 
how to get out of it are described below. 

An input of the form IOFLIP, (READ), () given when operat- 
ing in the Flexowriter type-in control will select the card 
reader and cause the read program to try to read in cards con- 
taining lists of triplets. If no cards of this form are in 
the reader, and EOF (end-of-file) error from the read program 
occurs, and the card reader is selected again. The card read- 
er will not be in ready status, and if the START button on the 
card reader is selected another EOF error will occur. To get 
out of this cycle one can type a tab on the Flexowriter. The 
tab will net be processed, but the Flexowriter keyboard will 
lock. At this point, pressing the START button on the card 
reader will get the 704 back on the line so that the interrupt 
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(from the tab type-in) will be processed and return control 
to the innocent victim. 

Example Flexowriter Run 

An example follows of an actual run with the Flexowriter. 
The Flexowriter types out in a different color from the type- 
in, and this is indicated below by underlining f At present 
the commas separating elements of lists can be replaced by 
blanks since the comma is inconveniently upper case. However 
in the example the commas are used for clarity. Explanatory 
comments have been put in below in lower case to the right of 
the actual output. 

The card-reader which was called in by lOFLIP(READ) below 
had cards in it defining the function RVSE (reverse a list), 
followed by a card IOFLIP(READ) to return to control to the 
Flexowriter. 

Flexowriter Sheet Explanation 



FLX the Flexowriter takes over, and 

GO requests a type-in (Sequence Mode) 

CDR ((A,B,C)) () (type-in) 

STOP the Flexowriter digests the in- 

"""*" formation 

(B,C) and finds the answer, 

GO and asks for more. 

CDR ((A,B,C)) (type-in) 
STOP 
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STOP 



the Flexowriter does not have a full 
triplet fjxjp > so asks for the rest 



GO : 



answer 





:1 

2 

:3 

01 




TEN 

CAR (((A,B),C)) () 

CDR ((D,(E,F))) () 

CONS ((G,H), 

(I,J)) ■()■ 

RLN 



(A,B) 




(the TEN-Mpde is entered) 



(type -ins) 



(read lines and 1) 
line 

answer 
line 1 



((E,F)) 
GO 

RLN 
22 
2 
GO 

RLN 
32 
WRONG ORDER 



RLN 



33 
3 



answer 

(read line 2) 

line 2 

the Flexowriter asks for the rest 
(read lines 3 to 2) 

error 

(read line 3)-line 2 has been re- 
membered 
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((Q,H),I,J) 

GO 

TEN 

CAR ((A B)) () 

LINE NUMBER MISSING RETYPE 

2 IOFLIP(READ) () "*N 

3 RVSE ((A,B,C,D)) () 

4 IOFLEX (PRINT) () 

5 IOFLEX (NG) () 

6 STOP 

7 FIN 
RLN 

25 

2 

READ 



answer 



(RVSE J REV1) 
READ 



error indication 



type -ins 



(read lines 2 through 5) 



go to card-reader to read in 
definition of RVSE and REV1 
(used in RVSE) 



flips back to Flexowriter 
read line 3 and find 



(D.C t B,A) 



answer to RVSE 
read line 4 



True<-the Flexowriter is printing 
read line 5 



ERROR NUMBER :P 1: 



NG 



NG is not a valid argument for 
IOFLEX, so 
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F answer is False 

GO 

RLN (read line 6 and 7) 

67 
67 end of computation 



FIN 
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6. List Structures 

Much of the following is taken from the M.I.T. report cited 
in Chapter 2. In Section 6.1 the representation of S-expres- 
sions by list structures is described and an example of list 
construction is included. In Section 6,2 association lists for 
atomic symbols and for floating-point numbers are described. 
Finally, in Section 6.3, a discussion of the use of free storage 
and the operation of the "garbage collector" is given. 

6.1 General Description 

(1) Representation of S-expresslons by List Structure 

A list structure is a collection of computer words 
arranged as in Pig. la or lb. Each word of the list structure 
is represented by one of the subdivided rectangles in the 
figure. The left box of a rectangle represents the address 
field of the word and the right box represents the decrement 
field. An arrow from a box to another rectangle means that 
the field corresponding to the box contains the location of the 
word corresponding to the other rectangle. 

It is permitted for a substructure to occur in more 
than one place in a list structure, as in Fig. lb, but it is 
not permitted for a structure to have cycles, as in Fig. -Is. 





Un — k~T>--*n~l-i 

Uxn EST 1 



(b) (c) 

Fig. 1 
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An atomic symbol or a floating-point number is rep- 
resented in the computer by a list structure of special form 
called the association list of the symbol. Such lists are de- 
scribed in Section 6.2 which follows. 

An S-expression x that is not atomic is represented 
by a word, the address and decrement parts of which contain the 
locations of the subexpressions car[x] and cdr[x], respectively. 
In the list form of expressions the S-expression (A, (B,C),D) is 
represented by the list structure of Fig. 2. 



-H D 



H> B 



Fig. 2 



When a list structure is regarded as representing a list, we 
see that each term of the list occupies the address part of a 
word, the decrement part of which points to the word containing 
the next term, while the last word has NIL in its decrement. 
The dot notation, e.g. (A«B), which is discussed in Section 2.2 
is not allowed in LISP Ij all lists and sublists must end with 
NIL. 

An expression that has a given subexpression occurring 
more than once can be represented in more than one way. Whether 
the list structure for the subexpression is or is not repeated, 
depends upon the history of the program. Whether or not a sub- 
expression is repeated will make no difference in the results 
of a program as they appear outside the machine, although it 
will affect the time and storage requirements. For example, 
the S-expression in list form ( (A,B), (A,B)) can be represented 
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by either the list structure of Fig. 3a or 3b, 



^ A 



>- B 



■^-•B 







"-^ 


> 1 




> 1 








i A| H^iB 







(a) 



(b) 



Fig. 3 



The prohibition against circular structures is es- 
sentially a prohibition against an expression being a subexpres- 
sion of itself. Such an expression could not exist on paper in 
a world with our topology. Circular list structures would have 
some advantages in the machine , for example, for representing 
recursive functions, but difficulties in printing them, and in 
certain other operations, make it seem advisable not to use 
them for the present. 

The advantages of list structures for the storage of 
symbolic expressions are : 

1. The size and even the number of expressions with 
which the program will have to deal cannot be predicted in ad- 
vance. Therefore, it is difficult to arrange blocks of storage 
of fixed length to contain them. 

2. Registers can be put back on the free -storage list 
when they are no longer needed. Even one register returned to 
the list is of value, but if expressions are stored linearly, it 
is difficult to make use of blocks of registers of odd sizes 
that may become available. 
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3. An expression that occurs as a subexpression of 
several expressions need be represented in storage only once. 

(2) Construction of List Structures 

The following simple example has been included to il- 
lustrate the exact construction of list structures. Two types 
of structure are shown, and the recipe for using LISP to derive 
one from the other is given. 

In the list structures below the word 'NIL 1 is shown 
in the decrement of the final element of lists and sublists. 
Strictly speaking in the current 704 representation of lists 
this decrement contains zero rather than the indicator NIL which 
would point to the association list for the atomic symbol NIL, 
but the replacement generally will not affect the user. 

In the following example we assume that we have a 
list of the form 

i ± = ((A,B,.C),(D,E,P),.....,(X,Y,Z)), 
which is represented as 



B 



-*-C NIL 



->- « 



^D 



>E 



-*F NIL 



1 NIL 



^X 



-^y 



Z Nil 



and that we wish to construct a list of the form 

i 2 = ((A,(B,C)),(D,(E,F)),...,(X,(Y,Z))) 
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which is represented as 



L 











^~ 


, . . _ — >_ 


NIL 






1 <— ■ 




Ux~ -^- 




U-A -»- 


NIL 


Ui> 


-*- NIL 


NIL 








t 






L 






1> B WC INII 


U|eI Mf ni 


U-Y HZ'N 11 ' 



First we consider the typical substructure, (A,(B,C)) 
of the second list ig. This may be constructed from A, B, and 
C by the operation 

cons [ A; cons [ cons [B; cons [G; NIL]]; NIL]] 

Or, using the list operation, we can write the same thing as 

list[A;list[B;C]] 

In any case, given a list, t, of three atomic symbols, 

t = (A,B,C), 

the arguments A, B, and Q to be used in the previous construc- 
tion are found from 

A = car[t] 

B = cadr[t] = car[cdr[t]] = car[(B,C)] 

C = caddr[t] = car[cdr[cdr[t] ] ] = car[cdr[ (B,C)]3 = cart(C)] 

The first step in obtaining Z^ from £ ± is to define a 
function, grp , of three arguments which creates (X, (Y,Z)) from 
a list of the form (X,Y,Z) 

define[ ( (grp;X[[t];cons[car[ t];cons[cons[cadr[t];cons[caddr[t]; 
NIL]];NIL]]]))] 
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Then grp_ is used on the list £ ± , assuming i ± to be of 
the form given. For this purpose a new function, mltgrp, is de- 
fined recursively, 

define [( (ml tgrp ;*[[ J] ;[ null [i] — NIL; T - cons [grp[carU] ]-, 
mltgrp[cdrU] ]]]]))] 

So mltgrp applied to the list i % takes each threesome, (X,Y,Z), 
in turn and applies grp to it to put it in the new form, 
(X, (Y,Z)) until the list £ ± has been exhausted and the new 
list ,G 2 achieved. 

Note : Any list which is read into the computer by 
LISP I can have only NIL (zero) in the final decrement. That 
is, the dot notation (A*B) cannot be read by the current read 
routine, so that the only way to get (A«B) is by a cons within 
the machine. Generally the use of such a cons to create a 
full machine word should be avoided. 



6 . 2 Association Lists 

Within the LISP I system there is a list of atomic sym- 
bols already available in the system. Each of these atomic 
symbols has an association list* associated with it, and in 
fact the atomic symbol on the list of atomic symbols points to 



* - 

In the local M.I. T. patois, association lists are also referred 
to as "property lists", and atomic symbols are sometimes called 
"objects". 
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the location of the association list. Integers are included 
in the list of atomic symbols, but floating-point numbers are 
listed on a separate list which will be discussed below. 

When an atomic symbol is read by the read program a 
check is made to see if it is already available on the list of 
atomic symbols. If it is not, it is added to the list and an 
association list is created for it. 

An association list is characterized by having the special 
constant 77777 a (i.e. minus 1) in the address section of the 
first word. The rest of the list carries any other information 
that is to be associated with the atomic symbol. This infor- 
mation may include: the print name (signalled by the indicator 
•PNAME'), that is, the string of "letters and digits which re- 
present the symbol outside the machine; a numerical value if 
the symbol represents a number; another S-expression if the 
symbol, in some way, serves as a name for it; or the location 
of a routine if the symbol represents a function for which there 
is a machine -language subroutine. 

Two kinds of value indicators are used on association 
lists: APVAL and APVAL1. Both indicate a value, but APVAL 
points to a single word which has the value in the address part 
and NIL (zero) in the decrement part, whereas APVALl points to 
a list. The indicator APVAL acts like a stop to the garbage 
collector (see Section 6.3 below) whereas APVALl allows the 
garbage collector to look ahead through the part of the list 
pointed to ; by APVALl. Whenever a programmer wishes to put 
some value on an association list for an atomic symbol, he may 
use the function attrib discussed In Ghapter 9 to put a sublist 
of the form (APVAL, ( ).)' on the association list. 

For example, on the association list for NIL, APVAL is 
used as follows: 
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NIL 

It 



JJ J—Hapval| H^ T 1 H - HpnameTI -H' 



HO I NIL } 



NIL 



NIL 



*-NIL??? 



A similar structure holds , for APVAL1 list-segments. The last 
word of a print name is filled out with a 6-bit combination 
(here shown as "? ") that does not represent a character print- 
able by the computer. Note incidentally that the print name 
is depressed two levels to allow for names longer than one re- 
gister length, for example, 



>PNAME 



3-^ 



rz> 



L^EXAMPL 



NIL 



^-E????? 



On the association lists for integers the indicator INT 
points to the integral value. The integral value is given as 
a full machine word with the value pushed, to the right-hand 
end of the register. 

On the association lists of those atomic symbols which 
represent functions, SUBR indicates a SAP subroutine for per- 
forming a function. SUBR points to a TXL to the subroutine, 
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and the decrement of the TXL instruction contains the number of 
arguments belonging to the function. Thus the following frag- 
ment of an association list belongs to a function of two argu- 
ments whose subroutine is located at 37721g. 









■->■ -1 


■>• - • 


• ->SUBR 



-5»~ ^ ~ 



TXL 37721,, 2 



The indicator EXPR on an association list of a function 
points to the S-expression. for the function, , as in 



-1 



•• -^ |expr 



S-expression de- 
fining the function 



The special forms discussed at the end of Section 4.3 have 
FSUBR or FEXPR on their association lists. 

Either attrib or define (see Chapter 4) may be used to put 
something on an association list. At t rib puts the item at the 
end of the list, and define puts it at the beginning. Thus 
define can be used to redefine an atomic symbol. Define puts 
EXPR followed by the associated S-expression on the association 
list of a function, Comdef (see Section 4.6) puts SUBR on the 
association list of the function compiled, and the SUBR points 
to the TXL to the compiled subroutine. 
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Floatlng-Poinb Numbers 

Floating -point numbers are listed in a separate list. A 
floating-point number is put on this list either as it is read 
in or as it is generated within a calculation. Neither this 
list nor the list of atomic symbols has any duplications. An 
association list is created for a floating-point number when 
the number is put on the list of numbers. 

The association list for floating-point numbers contains 
the indicators. NUMB and FLO (for floating-point ) , but the in- 
dicator PNAME is not put on the list until a request for print- 
ing the number is encountered. Only positive numerical values 
are put on the association lists for floating-point numbers; if 
a number is negative the association list for the number is 
preceded by the indicator MINUS, and the entry in the list of 
floating-point numbers points to the MINUS indicator. Thus we 
have 



-1.0 



T*£ 



MINUS 



+1.0 



NILl 



t -1 



HNUMBJ 



Hfloj HH |nil 



"- H l.o 



sS 



i.e. 202400000000 



Just as a matter of interest we give below the association 
lists for atom and for the constant 1, just as they are repre- 
sented in the 704. We use the bar notation, acid", to represent 
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the 2«s (8»s) complement of an octal address.* 

Preceding all the individual association lists in the 704 
LISP I system is the list of all atomic symbols. Each register 
of this list has an entry of the form 

x,,y 

where x is the address of the first register of the association 
list for this atomic symbol, and y is the address of the next 
entry in the list of atomic symbols. Thus for atom whose as- 
sociation list starts in 25146 the entry in the list of atomic 
symbols is 

location entry representing 

24657 053120052632 2514b, ,24bb0 

The association lists which appear in the following are 

atomic symbol location of association list 



atom 25146 

constant 1 25201 

subr 26705 

pname 26231 

(integer) int 25665 

apval 25134 



* 
The term "f index" is sometimes used for the 2«s complement 

of an octal location. 
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Then for atom the association list looks as follows: 

representing 

-1, ,25PF7 
25231, :;25150 



location 


ent 
052631 


ry 


25146 


077777 


25147 


052630 


051547 


25150 


052625 


O52627 


25151 


000000 


052626 


25152 


216346 


447777 


25153 


052624 


051073 


25154 


000000 


052623 


25155 


700000 


010762 



25IBX ,55153 

25I52", ,0 

BCD ATOM?? 
26705, ,25154 

55155, ,0 

TXL 



(77=?) 



10762, ,1 .(Location. of SAP 
subroutine for atom) 



or, in list form, 



25146 25147 

L - H-3- I [ - HpnameI 



25150 



25153 
-»- fSUBR 



25154 



25151 



NIL 



I NIL 



25155 



HTXL 10762, ,1 



25152 
- H AT0M??1 



For the constant 1, the association list looks as follows: 
location entry representing 

25201 052576 077777 



25202 
25203 
25204 
25205 
25206 



-1, ,25202 
052575 051547 55531, ,23203 
052572 052574 2520?, ,25205 

000000 052573 25205, ,0 

017777 777777 BCD 1????? 
052571 052113 25665, ,25207 
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25207 
25210 
25211 
25212 
25213 



052567 052570 

000000 000001 

052566 052644 

000000 052565 

000000 000001 



or, in list form 



25201 25202 



Un 



i| J - Mpname 



25203 25206 

~~1-> -tENT 1 



25204 



t*t 



NIL 



25205 



25210, ,25211 
1, ,0 



25134, , 25212 
^5213, ,0 
1, ,0 



25207 



J-H 



25211 

•APVALl 



25212 



25210 



oooooooooooi 





NIL 






->■ 


25213 


■ 1 NIL 



In this case, the constant 1 is tagged both as an integer 
INT of value 1, and as a constant which when evaluated (APVAL) 
yields the value 1. 

6.3 The Free-Storage List and the Garbage Collector 

At any given time only a part of the memory reserved for 
list structures will actually be in use for storing S-expressions 
The remaining registers are arranged in a single list called the 
free - storage list . A certain register, FREE, in the program 
contains the location of the first register in this list. When 
a word is required to form some additional list structure, the 
first word on the free - storage list is taken and the number in 
register FREE is changed to become the location of the second 
word on the free storage list. No provision need be made for 
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the user to program the return of registers to the free -storage 
list. 

This return takes place automatically whenever the free - 
storage list has been exhausted during the running of a LISP I 
program. The program which retrieves the storage is a SAP- 
coded program called the garbage collector. 

Any piece of list structure that is accessible to programs 
in the machine is considered an active list and is not touched 
by the garbage collector. The active lists are accessible to 
the program through certain fixed sets of base registers such 
as the registers in the list of atomic symbols, the registers 
which contain partial results of the LISP computation in pro- 
gress, etc. The list structures involved may be arbitrarily 
long but each register which is active must be connected to a 
base register through a car-cdr chain of registers. Any re- 
gister that cannot be so reached is not accessible to any pro- 
gram and is non-active; therefore its contents are no longer of 
interest.' 

The non-active, i.e. available, registers are reclaimed 
for the free-storage list by the garbage collector as follows. 
First every active register which can be reached through a 
car-cdr chain is marked by setting its sign negative.* When- 
ever a negative register is reached in a chain during this 
process, the garbage collector knows that the rest of the list 
involving that register has already been marked. Then the 



* 



Special provision is made for the rare case when the sign of 
a register is already negative. 
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garbage collector does a linear sweep of the free storage area, 
collecting all registers with a positive sign into a new free- 
storage list, and restoring the original signs of the active 
registers. Partial experience has indicated that about a third 
of the running time is taken up by the garbage collector. 
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7. Example Exercises 

Four exercises together with their solutions are given in 
this section. The first two exercises involve formulating 
LISP functions to treat list structures. In case the reader 
should like to try his hand at these before looking at the so- 
lution, the first two problems to be solved are: 

(1) Formulate a function which will "collapse" a list 
structure, i.e. which will make a one-level list out of a 
multilevel list, so that, for example, 

((A),(B,(C,D))) becomes (A,B,C,D) 

(2) Formulate a function which will reverse a list, so 
that, for example, 

(A,B,C,D) becomes (D,C,B,A) 

The third example shows how to define a length function 
which will operate more efficiently than the one defined in 
Section 4.4. 

The fourth example involves applying a function to its 
arguments when the function is specified only at the time the 
APPLY operator is in control. 

(i) Function to Collapse a List of Elements 

The function formulated below uses the function append , 
which is described in Chapter 9 and also in Chapter 2. Rough- 
ly speaking append makes one list out of two, so that, for 
example, 

append[(X,Y,Z)j(P,Q)] - (X,Y,Z,P,Q) 
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The function collapse , is defined as follows: 

collapse[i] = [atomU] -* cons[i;NIL];null[cdrCi]] -► 

[atom[car[i]] -+ i;T -► collapse [car [£]]]; 

T ■*- append [ collapse [car[^] ] j collapse [cdrUJ]]] 

For this particular example a complete record of the cards 
punched for the run and of the computer results is given below. 

In the run the APPLY operator operated on the define func- 
tion to define collapse , and then applied the defined function 
to three test cases. 

The following is a listing of the cards punched for the run; 

TST M948-371-P. FOX-EXERCISE 1 
DEFINE 

( ( (COLLAPSE, (LAMBDA, (L) , (COND, 
(( ATOM, L ), (CONS, L, NIL)) 
((NULL, (CDR,L)), 

(COND, ((ATOM, (CAR,L)),L), (T, (COLLAPSE, (CAR,L))))) 
(T, (APPEND, (COLLAPSE, (CAR,L) ) , (COLLAPSE, (CDR,L) )■) ) 
))))) (.). : ... . .- 

COLLAPSE ((((A,B), ((C))), ((D,(E,F)),(G), ((H))))) () 
COLLAPSE ((A,(B,(C,(D,(E))),F,(G,(H,J))))) () 
COLLAPSE ((((((A),B),C),D),E)) () 
ST0P))))))))))ST0P 

FIN M948-371-P. FOX-EXERCISE 1 

These cards were then submitted for a run, following the 
various directions as to deck format and so on given in Chapter 
5. The results printed out during the running of the problem 
by the APPLY operator, were the following (where comments on the 
computer output have been added in square brackets): 
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TST M948-371-P. POX-EXERCISE 1 

APPLY OPERATOR AS OF SEPTEMBER 1, 1959 
THE TIME IS NOW 2/16 1139.5 

READ IN LISTS ... 

DEFINE 

(((COLLAPSE, (LAMBDA, (L), (COND, ((ATOM,L) , (CONS,L, NIL) ),( (NULL, ( 

CDR,X) ), (COND, ((ATOM, (CAR, L) ),L), (T, (COLLAPSE, (CAR, L) ))')), (T, ( 

APPEND, (COLLAPSE, (CAR,X) ) , (COLLAPSE, (CDR,L) )))))))) 

COLLAPSE 
((((A,B),((C))),((D,(E,F)),(a),((H))))) 

COLLAPSE 

((A,(B,(C,(D, (E))),F,(G,(H,J))))) 

COLLAPSE 
((((((A),B),C),D),E)) 

STOP 

THE TIME IS NOW 2/16 1139-7 

[At this point all the cards through the STOP card have been 
"read in] . 

OBJECT LIST NOW IS ... 

[Here the entire list of atomic symbols, including those just 
read in, is printed out}. 
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THE TIME IS NOW 2/16 II39.7 

FUNCTION APPLY (F,X,P) HAS BEEN ENTERED, ARGUMENTS.. 
DEFINE 

(((COLLAPSE, (LAMBDA, (L), (COND, ( (aTOM,L) , (CONS,L, NIL )),( (NULL, ( 
CDR,L)), (COND, ((ATOM, (CAR,L)),L), (T, (COLLAPSE, (CAR,L) ) ) ) ), (T, ( 
APPEND, (COLLAPSE, (CAR,L)), (COLLAPSE, (CDR,L) ))))))) ) 

END OF APPLY, VALUE IS ... 
(COLLAPSE) 

[The function collapse has now been defined by having EXPR fol- 
lowed by the defining S-expression.put on its association list] . 

[The function collapse is now used on the three examples]. 

THE TIME IS NOW 2/16 1139. 7 

FUNCTION APPLY (F,X,P) HAS BEEN ENTERED, ARGUMENTS.. 
COLLAPSE 

((((A,B),((C))),((D,(E,F)),(G),((H))))) 

END OF APPLY, VALUE IS . . . 
(A,B,C,D,E,F,G,H) 

THE TIME IS NOW 2/16 II39.8 

FUNCTION APPLY (F,X,P) HAS BEEN ENTERED, ARGUMENTS.. 
COLLAPSE 

((A, (B, (C, (D, (E))),F, (G, (H,J))))) 

END OF APPLY, VALUE IS . . . 
(A,B,C,D,E,F,G,H,J) 
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THE TIME IS NOW 2/l6 1139.8 

FUNCTION APPLY (F,X,P) HAS BEEN ENTERED, ARGUMENTS.. 
COLLAPSE 
(((■(((A),B),C),D),E)) 

END OP APPLY, VALUE IS . . . 
(A,B,C,D,E) 

[The PIN card is read and the run terminates]. 

(2) Function to Reverse a List 

Two different functions are shown which purport to reverse 
lists, but only the second definition is correct. 

First Definition 

rvrse[i] = [null[i] — NIL;T -* cons [ rvrse [ cdr[ i] ]; cons [car U]; NIL] ] J 

Second Definition 

frvdeti] = rev[i;NIL] 

\_rev[ j;k] = [nullfj] -♦ k;T -» rev[cdr[ j] jcons[car[ «j];k] ] ] 

To show the effect of these two definitions on a given 
list the following cards were punched and run: 
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DEFINE 

( ( (RVRSE, (LAMBDA, (L ) , (COND, ( (NULL, L ) , NIL ) , 

(T, (CONS, .(RVRSE, (CDR,L) ) , (G0NS,(CAR,L) ,NIL) ))))), 
(RVDE , (LAMBDA, (L ) , (REV, L, NIL ) ) ) , 
(REV, (LAMBDA, (J,K), (COND, ( (NULL, j),K), 

(T, (REV, (CDR,J), (CONS, (CAR, J),K)))))))) 


RVRSE ((A,B,C,D,E)) () 
RVDE ((A,B,C,D,E)) () 

The results given for the two cases by the APPLY operator were 
respectively 

RVRSE((A,B,C,D,E)) () = ( ( ( ( (NIL,E),D),C),B),A) 

and 

RVDE((A,B,C,D,E)) () - (E,D,C,B,A) 

Thus only the second definition does the job intended; 
the first function, rvrse, erroneously creates a multilevel 
list. 

(3) Function to Count the Number of Elements in a List 

The function given in Section 4.4 for the length of a list is 

length^;] = [nullCil .-* Q.OjT — sum[length[cdr[i] ];1.0] ] 

This function will work correctly, but it is slow and inef- 
ficient in the sense that it must follow the recursion of 
length down to the end of the list before it starts counting. 
Then it counts out backwards through the list. The following 
pair of functions counts forwards through the list, and there- 
fore operates faster: 
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lengthxU] = [ lengthy! i; 0.0]] 

lengthy[jjk] = [null[ J] -+ k;T -+ lengthy[cdr[y] jsum[ 

1.0;k]]] 

(4) Specification of a Function During Hun Time 

The following somewhat obscure example shows how one can 
leave the specification of a function until the time a program 
is run, and at that time specify it in a particular way. This 
cannot be done by the usual method of using the APPLY operation 
b.n a fjx;p triplet since the APPLY operator expects f to be 
already available. Instead one must use the APPLY operator on 
a triplet whose f is the function eval , as in 

EVAL 

((APPLY, (CAR, X),Y, NIL), 

( (X, (CADR,CDR) ) , (Y, ( (A,B,C) ) ) ) ) 



Here the second argument of eval , the p-list is used to set 
the function (CAR,X) equal to CADR, and the result of the eval 
is 

apply[cadr; (A,B,C);NIL] =B 



-106- 



-107- 



8* Error Indications Given by LISP 

Below are listed the print outs that occur (on-line or 
off-line depending on sense switch 3) when an error is found 
in a LISP program. Generally after an error is found control 
is returned to the APPLY operator which starts to operate on 
the next triplet. After errors which are more drastic, such 
as no input data available or no more free storage available, 
the run is terminated. The word bracketed by dashes in the 
printouts below is the name of the LISP system subroutine in- 
volved, e.g. -APP2-in Ai, and need not concern the user. 

Errors during the operation of the APPLY operator ; 

Al TOO MANY ARGUMENTS FOR A FUNCTION -APP2- 

I.e. there are more arguments than the APPLY operator is 
built to handle, (currently ten). 

A2 FUNCTION OBJECT HAS NO DEFINITION -APP2- 

I.e. the function represented by an atomic symbol has neither 
SUBR nor EXPR on its association list, nor is it paired with 
something on the p-list . The atomic symbol for the name of 
the function is printed out after the A2 print-out. 

A3 CONDITIONAL UNSATISFIED -EVCON- 

I.e. none of the conditional expressions in a conditional 
were evaluated as true . 

A5 SETQ GIVEN ON A NON-EXISTENT PROGRAM VARIABLE -EVAL- 

I.e. (see the program feature, Section 4.5) the program 
variable is not within this program, nor is it in some 
higher-level program in this run. The name of the pro- 
gram variable is printed out. 

A7 SET GIVEN ON A NON-EXISTENT PROGRAM VARIABLE -EVAL- 
See A5 above. 
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A9 UNBOUND VARIABLE USED -EVAL- 

I.e. a free or unbound variable has neither APVAL or 
APVAL1 (see Section 6.2) on its association list to signal 
its value, nor is the variable paired with something on 
the p-list. The name of the variable is printed out. 
A10 FUNCTION OBJECT HAS NO DEFINITION -EVAL- 

I.e. a function does not have EXPR, FEXPR, SUBR, nor FSUBR 
on its association list, nor is the function paired with 
something on the p-list. The name of the function is 
printed out. 
All GO TO A POINT NOT LABELLED -INTER^ 

I.e. (see the program feature, Section 4.5) there is no 
location-marking atomic symbol whose value corresponds to 
the value given by evaluating the rest of the GO list. 
A12 RAN OUT OF STATEMENTS -INTER- 

I.e. the interpreter didn't find a RETURN statement in a 
program using the program feature . 
A13 TOO MANY ARGUMENTS -SPREAD- 

I.e. there are more arguments than the APPLY operator is 
built to handle, (currently ten). 
A14 APPLIED FUNCTION CALLED ERROR 

If the APPLY operator reaches an "ERROR" in an expression, 
for example T -* ERROR, then Al4 is printed out followed by 
the argument of ERROR, if one has been assigned . It is 
not necessary to assign an argument, but it is possible to 
assign a single argument, for example 

(T, (ERROR, (QUOTE, NG ) ) ) 
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Errors due to computer inadequacies : 

Bl OUT OP PUBLIC PUSH DOWN LIST -SAVE- 

I.e. the program has run out of space allotted to the 

i 
public push-down list. Currently about 1000 registers 

are allotted, and, if they are used up, the recursion 

being done is either too "deep" for the given capacity or 

non- terminating. 

B2 FREE STORAGE COUNTER PANIC STOP. PRESS START TO CONTINUE 
There is a free storage counter, called the "CONS counter", 
associated with the LISP system. Every time a register is 
taken from free storage, the counter is increased by one. 
The counter is not changed by the garbage collector opera- 
tion. Thus to some extent the counter indicates how a pro- 
gram is operating — how much storage it is using, and so on, 
or, for a program whose operation is known, how long it has 
been running. The counter is initially set to zero, and 
when it has reached 100,000, the computer stops after giv- 
ing the error print out B2. When the start button has 
been pressed to restart the computer the counter continues 
counting, but no further stop occurs. 

B3 DIVIDE ERROR -OCTAL TO DECIMAL CONVERTER- 

This error arises only when the computer malfunctions or 
when some of the program has been written over. 



1 
See page 144 of the Quarterly Report referred to on the first 



page of Chapter 2. 
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Errors In list structures : 

C2 OBJECT GIVEN TO DESC AS LIST 

I.e. (see desc in Chapter 9) in desc[x;y], x is an atomic 
symbol instead of the required list of A's and D's. 

PI UNEQUAL LENGTH LISTS -MAP2- 

This error can occur only during the differentiation func- 
tion; It implies a machine error. 
1ST ARG, LIST TOO SHORT -PAIR-- 
2ND ARG. LIST TOO SHORT -PAIR- 
PS and PJ occur when a list of pairs is being created out 
of two lists, for example when a list of dummy variables 
and their values is being appended to the p-list. The 
items still remaining on the larger list are printed out 
following the error indication, 

F4 CANNOT PAIR OBJECTS. PLEASE USE LIST -PAIR- 

I.e. one of the lists to be paired is, erroneously, an 
atomic symbol. This usually happens when the user gives a 
single dummy variable in a LAMBDA expression as an atomic 
symbol instead of as a list. The list is printed out fol- 
lowing the error; indication. 
FLVAL ASKED TO FIND VALUE OP NON- OBJECT 
FLVAL ASKED TO FIND VALUE OF NON-FLOATING POINT NUMBER 
P5 and F6 occur when the program is looking for the value 
of a floating-point number, and finds either that it is not 
an atomic symbol (F5), or that it is not a floating-point 
number (P6). 
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Errors during the operation of the garbage collector $ 

Gl I HAVE FAILED TO FIND ANY GARBAGE. PANIC STOP. 
-GARBAGE COLLECTOR- 
I.e. there is simply no more memory space available. 

G2 TOO MUCH MARKING OF NON-LIST STRUCTURE. PANIC STOP. 
-GARBAGE COLLECTOR- 

This error is given after G3 below has occurred ten times. 
The leniency allowed here has been inserted to permit a 
great deal of information to be gleaned from one run 
rather than stopping immediately on an early error. 

G3 MARKING IN NON-LIST AREA AT OCTAL/ 

This error occurs when illegal list structure is found 
during the garbage-collector phase. 

Errors during the operation of the direction cards on input ; 

01 NO INPUT DATA -OVERLORD- 

Overlord is the LISP routine which is controlled by the 
direction cards, Error 01 arises when an end-of-flle is 
found in the wrong place, due to wrong Input data. 

03 AN ERROR HAS OCCURRED IN THE PRECEDING SET 

I.e. an error has been found somewhere in the program fol- 
lowing the last SET direction card. This SET, see Section 
5«1, will not create a new base image of the memory on tape. 

04 END OF FILE ON INPUT 
Same as 01. 

05 ERROR IN READING TAPE 

This is a machine error in reading either tape 8 or 9« 
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Errors during printing; 

PI PRIN1 ASKED TO PRINT NON-OBJECT 

I.e. the printing program tried to print an item which 

was not an atomic symbol. 
P2 PRIN1 ASKED TO PRINT UNPRINTABLE OBJECT 

I.e. the printing program tried to print an atomic symbol 

which does not have PNAME on its association list. 

Errors during read-in : 

Rl ILLEGAL PUNCHING IN ON-LINE DATA -RTX- 

Sic 
R2 1ST OBJECT ON INPUT LIST ILLEGAL -READ- 

This error may arise when there is an error in the number 

of parentheses on the previous list read. 
R3 OBJECT INSIDE AN INPUT LIST IS ILLEGAL -READ1- 

I.e. an illegal character appeared in some atomic symbol. 
R5 END OF FILE -RDA- 

. The tape or card-reader ran out of cards before the correct 

number of parentheses were read. 
R6 NUMBER TOO LARGE IN CONVERSION 

The conversion program can convert a floating-point number 

x of up to nine digits and an exponent, provided 
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9. Functions Available in LISP 

In this section, a brief description is given of all the 
functions available in the LISP system as of March 1, i960. 
A brief account is given for each function explaining the form 
of its argument, and its value. Whether the function is in 
machine language (otherwise it must be interpreted by the APPLY 
operator), and whether it is a special form is also included. 
In some cases, an M-expression for the function in terms of more 
basic functions is appended, and in other cases a program writ- 
ten in the notation of the program feature (Section 4.5) is 
given. The user of course need only give the function name and 
arguments — the M-expression or program are just included here 
as amplified description. 

Since there are about ninety functions In the LISP system, 
they have been grouped into subgroups for easier reading. The 
function index of Section 9.5 provides an alphabetic index for 
looking up a function. Sections 9.1 and 9.2 include all the 
functions which are generally used. Section 9«1 discusses predi- 
cates, apply and eval , simple functions, pseudo-functions for 
defining other functions, functions to operate on lists, simple 
arithmetic functions, input-output functions, and the compiler 
functions. Section 9.2 consists of some special forms, such as 
cond and quote . Section 9«3 discusses some of the less frequent- 
ly used functions and could be skipped at first reading. Section 
9.4 contains rather specialized functions which have been rele- 
gated to the Supplementary LISP System. To find out how to use 
a function from this last category one must consult the local 
experts on LISP at M.I. T. 



-114- 



9.1 General Functions 



Predicates: 



atom [x] : machine language 

The argument of atom is evaluated and the value of atom 
is true or false depending on whether the argument is or is 
not an atomic symbol. In list terminology (see Chapter 6) 
the argument is an atomic symbol if and only if car[x] = -1. 

null [x] : machine language 

The value of null is true if its argument is zero, and 
false otherwise, 

and [x^;x^; . . . ;x n 3 : machine language; special form 

The arguments of and are evaluated in sequence, from left 
to right, until one is found that is false, or until the end 
of the list is reached. The value of and is false or true re- 
spectively. 

— ^ x l' x 2* * * * Jx n^ : machine language; special form 

The arguments of or are evaluated in sequence, from left 
to right, until one is found that is true, or until the end of 
the list is reached. The value of or is true or false respec- 
tively. 

not[x] : machine language 

The value of not is true if its argument is false, and 
false If its argument is true. 
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fjlxjy] : machine language 

The value of eq is true if x * y and false if x / y . 

^qual txjyl : machine language 

The function equal compares the lists x and y and has fche 
value true if the two lists are identical, and false otherwise. 

equal[x;y] - [eq(xjy] -* Tjnull[x]Vnull[y] -* FjatomixJvatQmC 
y] -+ FjT"^ equal[car[x] jcar[y]]Aequal[cdr[x]; 
cdrty]}] 

eqitxjy] : machine language 

The function eql compares lists x and y of the following 
special two^level form, where each element of the top level 
points to a full word: 



-HI 




Full word 



>-Fuil word 



The value of eql[x;y] is true if the two lists are identical, 
and false otherwise . 

eq[x;y] - [eqtxjy] — T;null[x]Vnuli[y] -* F;T -* eqtcwrt 
car[x] ] jcwr[car[y] ] Aeql[cdr[x] ;cdr[y] ] ] 

(cwr[n] is the 36-bit contents of register n) 

Apply and Eval : 

apply [f;x;pl : machine language 

The reader usually will not have occasion to use this 
function because essentially it gets done for him, but it 
operates as follows, 
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apply[f;x;p] = [atom[f ] -+ app2[fjx;p]j 

car[f] «= LAIVIBDA -* eval[caddr[f ] j append [ pair [cadr[f ]; 

x];p]]j 
car[f] « LABEL-* apply[caddr[f] ;x;append[ lis t[list[ 

cadr[f]jcaddr[f]]];p]]; 
car[f] = FUNARG -► apply [eadr[f];xj caddr[f]]jT -+' 

apply [eval[f;p];x;p]] 

The forms involving LAMBDA, LABEL, and FUNARG are discussed 
in Section 4.3. The satellite functions for apply are the fol- 
lowing: 

app2[ f j x; p ] : machine language 

The function app2 is the apply operator (see apply ) in the 
case when f is atomic. 

app2[f;x;p] = select[f j [CAR;caar[x] ] ; [CDR;cdar[x] ]; [CONS; 
cons[car[x];cadr[x]]];[LISTjx];search[f; 
X[[j];[eq[car[j];SUBR]Veq[car[j];EXPR]]]j 
A[[j];[eq{car[j];SUBR] -*• app3[cadr[ j];x]; 
T-* apply[cadr[j];x;p]]; 
A[[ j] J apply [ car [sassoc[f;pj error] ];xjp]]]] 

See the function select. .: 

app3[f jx] : machine language 

In the case when app2 (see above) in the apply function 
finds an atomic function specified by a machine -language sub- 
routine, app3 applies that subroutine to the list x of argu- 
ments . 
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eval [e;b j : machine language 

The reader should have no occasion to use this function 
as such, since it is called in by the APPLY operator, but he 
might be interested in its modus operandi which is as follows, 
{b is the list of pairs of bound variables): 

eval[ejb] = [atom[e] -* search[e;>,[[ j];eq[car[ j] ;APVAL]V 
eqf car[ j] jAPVALi] ];caadr;7\[ [ j];search[b; 
A[[j];eq[caar[ j]je] ];?.[[ j] j cadar[j]]; 
X[tj];error]]]]{ 

atom[car[e] ] -* 

searchtcdartej^ttj] ;eq[car[,j];FSUBRjVeq[car[ j]; 

SUBR J Veq[ car[ j ] ; FEXPR j Veqtcar [ j] ; EXPR] ] ; 

A[[ j];select[car[ j]; 

[FSUBR;app3[cadr[j];list[cdr[e];b]]]j 

[SUBRjapp3tcadr[ j];evlis[cdr[e];b]]]j 

[FEXPR;apply[cadr[j]jlist[cdr[e]jb];b]]; 

apply [ cadr [ j ] ; evlis [ cdr [e];b];b]]]; 

A[[j];search[b; 

X[[ j] jeq[caar[ j] j carte] ]]; 

A[[ j];apply[cadar[ j];evlis[cdr[e] ;b] ;b]]; 

*[[ J Jjerror ]]]']; 

T -* apply [car[e] ;evlis[cdr[e] jb];b]] 



evlis [x;bj : machine language 

The function evlis is lused Ifoy l£he :f unctilon je.vail ;ubjava. 
The arguments of evlis are a list, x, of expressions, and a 
list, b, of bound variables. The function evlis constructs 
a list of the values obtained by evaluating each element of 
the list x, using eval and the list b, and the resultant list 
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is the value of evils . 

evlis[x;b] = maplist[xjX[ [ j];eval[car[ j] ;b] ] ] 



Simple Functions: 



car[x] : machine language 
See Chapter 2. 
Examples : 

car[ (A,B)J = A 
car[((A,B))]= (A,B) 

cdr[x] : machine language 
See Chapter 2. 
Examples : 

cdr[(A,B)] = (B) 
cdr[((A,B))] = NIL = () 

The APPLY operator can perform some multiple car 's and 
cdr 's, e.g. 

cadddr[x] = car[cdr[cdr[cdr[x]] ]] . 

A depth of up to (and including) four a's or d's between the 
c and the r is permissible . 

cons [xjy] : machine language 
cons[x;y] = (x.y) 
See Chapter 2. 
The value of cons is the (location of the) stored word. 



-119- 



Defining Functions ; 

define [x] 

The argument of define , x, is a list of pairs 

((u 1 ,v 1 ),(u 2 ,v 2 ),...,(u n ,v n )) 

where each u is a name and each v is a A-expression or a 
function. For each pair, define uses defl to make the EXPR 
on the association list for u point to v. The function 
define puts things on at the front of the association list. 
The value of define is the list of u's. 

define[x] = deflistfxjEXPR] 

deflist[x;PRO] 

The function deflist is usually used to tie the EXPR-search 
required by define to the PRO-search in the program for defl . 

deflist[xjPRO] = deflisltx] 

deflisltx] 

The argument of deflisl is a list of pairs. The function 
deflisl does a defl of each pair and has as value the list of 
the first element of each pair. 

Thus the functions deflist and deflisl carry out the pur- 
pose of define by tying the PRO in d efl to EXPR and by carry- 
ing out the entire list of definitions (by the recursive func- 
tion deflisl ). 

deflisltx] = [nulltx] -* NIL;T -* cons[defl[caar[x]; 
cadar[x]];deflisl[cdr[x] ]]] 
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defl [xje] 

The function defl puts a pointer to the expression e on 
the rest' of the list x from the point where it finds the at- 
tribute PRO'. If no such attribute is found, one is created. 
The value of defl is x. In practice, PRO is usually paired 
with EXPR on the p-list. 

defl is equivalent to the following (where the program 
feature has been used) 

*[[xje]jg ] where ]| is the following program with no pro- 
gram variables. 

rplaca[prop[x;PROjA[[()]jcdr[attrib[xjlist[projNIL]]]]]je] 
return[x] 

Thus the association list will end up with PRO pointing to e as 
follows: 
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attrib[xje] t machine language 

The function attrib concatenates its two arguments by 
changing the last element of its first argument to point to the 
second argument. Thus it is commonly used to tack something 
onto the end of an association list. The value of attrib is the 
second argument. For example 

attrib[FF, (EXPR, (LAMBDA, (X), (COND, ( (AT0M,X),X), (T, (FF, (CAR,X) ) ) ) ) ) } 

would put EXPR followed by the LAMBDA expression for FF onto 
the end of the association list for FF. 

attrib can be used to define a function provided no other 
definition comes earlier on the function's association list, 
but in general it is better to use define- 
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nconc [x;y] : machine language 

The function nconc concatenates its arguments without 
copying the first one. The operation is identical to that of 
attrib except that the value is the entire result, (i.e. the 
modified first argument, x) „- 

The program for nconcjxjy] has the program variable m and 
is as follows: 

nconc[x;yI =prog[[m]j 

go[null[x] -* RETU;T -* CONT] 
CONT m = x 

Al go[null[cdr[x]] -* A2;T -► MORE] 
MORE m = cdr[m] 

go[Al] 
A2 cdr[m] = y 
RETN returnfx] 
RETU return[y] 



Operations on Lists : 



list [Xjjx g ; . . . ;x 3 : machine language; special form 

The function list of any number of arguments has as value 

the list of its arguments. 

For the APPLY operator, if p is the associated p-list, 

and x represents the string of x^s above, 

list[x] = maplist[x;X[[ j];eval[car[ «j];p] ]-] 

append ix; y] % machine language 

The function append combines its two arguments into one 
new list. The value of append is the resultant list. For 
example , 
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append[(A,B),(C)] = (A,B,C), • 
append[((A)),(C,D)J - ((A),C,D) 

append[x;y] = [null[x] -+ y;T -+ cons [car[x]; append [ 
cdr[x];y]]] 

Note that append copies the top level of the first list; append 
is like nconc except that nconc does not copy its first argument 

copy [x] : machine language 

This function makes a copy of the list x. The value of 
copy is the location of the copied list. 

copy[x] = [null[x] -*■ NIL;atom[x] -*• x;T -* cons [copy[ car [x]]j 
copy[cdr[x]]]] 

maplist[x;f ] 

The function maplist is a mapping of the list x onto a 
new list f [x] . 

maplist[xjf ] = [null[x] -*• NIL;T -* cons[f [x];maplist[cdr[ 
x];f]]J 

mapcon [x;f ] 

The function map con is like the function maplist except 
that the resultant list is a concatenated one instead of 
having been created by cons -ing. 

mapcontxjf ] = [null[x] -»■ NILjT -► append[f [x] jmapcon[cdr[ 
x]jf]]] 

map [x;f] 

The function map is like the function maplist except that 
the value of map is NIL, and map does not do a cons of the 



-123- 



evaluated functions, map is used only when the action of 
doing f (x) is important . 

The program for map[x;f ] has the program variable m and 
is the following: 

map[x;f] = prog[[m]j 

m = x 
LOOP go [ null [m] -+ END;T -+ CONT] 
CONT f[m] 

m = cdrfm] 

go [LOOP] 
END return[NIL] 

conc [x;y] : special form 

The function cone evaluates the items on the list x, and 
concatenates the values. The value of cone is the final con- 
catenated list. The items on the list x must either be bound 
on the list of pairs, y, or have APVAL or APVAL1 on their as- 
sociation lists. 
Example: 

let x = (X,Y,Z) 

and y = ( (X,W), (Z,R))' 

and let Y have APVAL on its list pointing to 

the value Y, then 

cone [ xi y] - (W/y,R) 

conc[x;y] = mapcon[x;X[ [ j] jeval[car[ j]jy] ] ] 

pair [xjy] : machine language 

The function pair has as value the list of pairs of cor- 
responding elements of the lists x and y. The arguments x and 
y must be lists of the same number of elements. They should not 
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be atomic symbols. 

search[xjp;f;u] : 

The function search looks through a list x for an element 
that has the property p, and if such an element is found the 
function f of that element is the value of search. If there is 
no such element, the function u of one argument, x, is taken as 
the value of search (in this case x is, of course, NIL). 

search[x;p;f;u] = [null[x] -*■ u[x];p[x] -* f[x];T-* searchf 

cdr[x];p;f;u]J 

subst [x;y;z] : * machine language 

The function subst has as value the result of substituting 
x for all occurrences of the atomic symbol y in the S-expression 
z . 

subst[x;y;z] = [eq[y;z] -*■ copy[x] ;atom[z] -* zjT -* const 

subst[xjyjcar[z]];subst[xjyjcdr[z]] ] ] 

sublls [x;y] : machine language 
Here x is a list of pairs, 

((u 1 ,v 1 ),(u 2 ,v 2 ),...,(u n ,v n )) 

where the u»s are atomic. The value of sublis [x;y3 is the 
result of substituting each v for the corresponding u in y. 
Note that the following M-expression is different from 
that given in Chapter 2, though the result is the same. 

sublis[x;y] = [null[x] -*■ ysnull[y] -* NILjT -♦ search[x; 
A[[j]sequal[y;caar[ j]]];A[[j];cadar[ J]]; 
[atom[y] -*■ yjT -*• cons[sublis[xj car[y] ]j 
sublis[xs cdr[y] ] ] ] ] ] 
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inst [x;y;z j : machine language 

Here x is assumed to be an incomplete list of pairs 
((\x lt v ± ) s (u 2 ,v 2 ), .. „, (u n ,v n )), where the u«s are atomic and 
where some v's may be missing. The value of inst is false if 
z cannot be obtained as sublisrxsy] where "x is a completion of 
x obtained by substituting appropriate pairs (u,v) for the un- 
paired elements (u). If z can be obtained in this way, inst 
[x;y;z] has as value the completed list x. The purpose of 
inst is to determine whether z is a substitution ins ta nce of 
the expression y. 

inst[xjyjz] = [null[x] -* F;null[y]Vnull[z] -+ P;atom[y] -* 
search[xjA[ [ j]jeq[caar[ j];y] J j7v[ [ j];null[ 
cdar[j]] -+ maplist[xjX[[k];[not[eq[k; j]] — 
car[k]jT -*■ cons [y; const z; NIL]]]] Jjeq[cadar[ 
j];z] -* x;T -► F]j[eq[y;z] -♦ x;T -* F]]jT -+ 
inst[inst[x;car[y] jcar[z] ];cdr[y];cdr[z]] ] 

sassoc[xjy;u] : machine language 

The function sassoc searches y, which is a list of lists, 
for a sublist whose first element is identical with x. If 
such a sublist is found, the value of sassoc is the sublist 
with the first element removed. Otherwise the function u of 
no arguments is taken as the value of sassoc . 

sassoc[xjy;u] = [null[y] -* u[ ];eq[caar[y];x] -* cdar[y]j 

T ""*■ sassoc[xjcdr[y]ju]] 
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Arithmetic Functions : 

sum [x;y] : machine language 

The function sum computes the sum of two floating-point 
numbers. The arguments x and y can be quoted numbers, or can 
represent numbers by being paired with numbers on the p-list. 
Thus the following two cases are equivalent: 

(1) (SUM, (QUOTE, 3-0), (QUOTE, 21. *0) 

(2) (SUM, (QUOTE, 3.0), V) with (V,21.4) on the p-list. 

prdct [x;y] : machine language 

The function prdct computes the floating-point product of 
two floating-point numbers. The arguments x and y must be ex- 
pressed in one of the forms given under the function sum . 

expt [x,n] : machine language 

The value of expt is the floating-point number x n where x 
is a floating-point number and n is a floating-point positive 
or negative integer. The arguments must follow one of the 
forms described under the function sum. 



Input -Output Functions 

read : machine language 

The function read of no arguments reads one list from 
cards or tape (depending on the sense-switch settings). The 
value of read is the list it has read. 
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print[x] : 

The function print prints out (on-line or off-line depend- 
ing on sense-switch settings) its argument x if x is a legal 
list structure, and malfunctions if it is not. If x is NIL a 
blank line is printed. The value of print is always zero. 

In the following explanation of print , prin2 is a routine 
which places in the line to be printed up to six BCD charac- 
ters when the characters are pushed to the left with the rest 
of the register filled in by the illegal character 77. The 
locations <** , )S , "Y , and d mentioned below contain respec- . 
tively BCD representations of left -parenthesis, right-paren- 
thesis, comma, and blank (space) in the form appropriate for 
prin2. 

print[x] = prog[[];printa[x] j terpri] 

Here terpri (terminate print) is a machine language function 
which prints Out the line of characters which have been placed 
there by the function prin2 . 

printa[x] = [null[x] -* prin2[<J];atom[x] ■ -* prinl[x]; 
T -♦ prog [[il 3; (print a subprogram)]] 

where the (printa subprogram) is the following: 

£1 = x 

prin2[«*<] 
PL printa [cartel]] 

null [ cdr [ il ] ] -+ go [END] 

prin2[Tf] 

£1 = cdr[il] 

go [PL] 
END prin2[£] 

re turn 
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prinl[x] : machine language 

The routine prinl prints the print name of the atomic 
symbol x. The value of prini is NIL. If x is not an atom, 
an error occurs . 

printprop [x] : 

The function printprop prints the properties on the as- 
sociation list of the atomic symbol, x. The parts of the 
list pointed to by any of FLO, SUBR, PSUBR, PNAME, APVAL, or 
INT are not printed. 

The function prog2 [x;yj used by printprop has the value 
y, though x may be used to effect some action. For example, 

printprop [ x ] = prog2 Sprint Eli s t [PROPERTIES * OF ; x ] ] j 

printpl[cdr[x]]] 

prints out 

(PROPERTIES, OF, X) 

and then goes to printpl below. 

P_rintpl[x] (see printprop Ex] ) 

The function printpl , which does the printing of the 
properties is 

printpl[x] = [nullEx] -*■ NILjT -* prog2[print[car[x] ]; 
searchE (FLO, SUBR, FSUBR, PNAME, APVAL, INT ) ; 
A[E j];eq[car[ j]jcar[x]]]; 
7v[[k];printpl[cdr[cdr[x]]]3| 
A[ Em];printpl[cdr[x] ] ] ] ] 
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punchi[x] : machine language 

The function punchi writes the list x out onto tape 7 in 
BCD form for off-line punching. The resultant cards have the 
list information in consolidated form, i,e. extra blanks have 
been left out and commas Inserted in the correct locations. 
All 72 columns of the card are used. 

punchs [x] : machine language 

The function punchs writes the list x out onto tape 7 
for off-line punching. Each sublist of the top level of list 
x appears as a separate card punched in SAP format, punchs is 
used with the LISP compiler. 

punchdef [x] : 

The function punchdef writes the definition of the .func- 
tions named in the list x out on tape 7 In BCD for off-line 
punching. If any item of the list x does not have EXPR or 
its association list, punchdef gives an error indication. 

Error Function: 



error [x] : machine language 

The function error of one argument (the list x) causes 
an error print -out followed by a print -out of x. x can be 
given as NIL. 

Compiler Functions : 

comdef [x] : 

The pseudo-function comdef compiles all the functions 
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named on the list x provided that the functions have EXPR and 
a definition on their association lists. See Section 4.6. 

The function comdef uses the function compile (see below) 
as shown in the following: 

comdef [x] = compile [mapcon[x;?v[ [ j] j "program"] ] ] 

where the "program" involved is as follows with program vari- 
ables k and p: 

p = car[j] 
k = get[pjEXPR] 

re turn [ null [ k] -* PROGA; T -+ PROGB ] 
PROGA [null[get[p;SUBR]] — print [cons [p; (IS, NOT,DEFINED)] ]j 
T -* print[cons[pj (HAS, ALREADY, BEEN, COMPILED) ] ] 
re turn [NIL] 
PROGB remprop[p;EXPR] 

return[eq[car[k];LABEL] -* list[k] ;T -* list[ 
list[LABEL;p;k]]] 

get[x;y] : 

The function get is used by comdef above. It searches 
the list x for an item identical with y. when such an element 
is found the value of get is car of the rest of the list be- 
ginning immediately after the element. 

compile [x ] : 

The pseudo-function compile can be used to compile func- 
tions not previously defined. The argument of compile is a 
list of function definitions, each one of which must be of 
the form 

(LABEL, NAME, (LAMBDA, (list of free variables ), Expression) ) 
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9 • 2 Special Forms 

quote t machine language; special form 

The value of a list beginning with QUOTE is always the 
rest of the list. Note that QUOTE must be used in expressions 
being evaluated whenever one wishes to avoid evaluating an 
item — for example (QUOTE, X) yields X itself rather than a 
value assigned to X by some other means. 

condtx^Xp; . . .;x ] : machine language; special form 

The function cond has a variable number of arguments, 
each one of which is a pair of expressions of the form 

(conditional, expression) 

The propositions are evaluated until one is found that Is true. 
The expression corresponding to this proposition is evaluated 
and taken as the value of the entire conditional. 

Except for its use with the compiler at least one of the 
propositions of cond must be true or an error will occur. 

label [ a; b] : machine language; special function 

The effect of label as the first element of an expression 
is described in Section 4.3 of this manual. 

label[a;b] = evai[cadr[a];append[list[a];b] ] 

format.[x;f;v] : 

The function format has the value x. x is an atomic sym- 
bol, f Is a list structure, and v is a list of variables oc- 
curring in f . The function format causes x and the variables 
of v to become functions which are available to the APPLY op- 
erator. The following example of its use is taken from an 
earlier version of the programmer's manual. 
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Consider f ormat [ SHAKESPEARE; (UNDER, GREENWOOD, TREE ) ; 

(GREENWOOD, TREE)] 
There are two variables involved, GREENWOOD and TREE. 
Then the execution of format generates three functions to 
which we could give arguments 

Shake speare .[ SPREADING; CHESTNUT ] 
greenwood [ (BENEATH, SPREADING , CHESTNUT ) ] 
tree [ (BENEATH, SPREADING, CHESTNUT ) ] 

Executing these functions in turn gives 

(UNDER, SPREADING, CHESTNUT) 
SPREADING 
and CHESTNUT respectively. 

Thus Shakespeare has as argument a list u which must con- 
tain as many terms as v; and substitutes in f for one occur- 
rence of each variable in v the corresponding variable in u. 

greenwood and tree have as argument a list structure g 
and pick out the element in g which occupies a position cor- 
responding to their's in f . 

format[n;f;v] = 7v[ [n;f ; v]; U[ [s; t]; t] [attrib[n;sublis[ [[->; v]; 

[P;f];[P;formatp[v]]]; (EXPR, (LAMBDA, V, ( 
SUBLIS,(LIST,P),(CONST,F)))]]formatq[n;f;v]]33] 

formatp[v] = [null[v] -+ AjT -* cons [ subs t[ car [v];X; (LIST, 
(CONST,X),X)];formatp[cdr[v]]]] 

formatq[n;f;v] = [null[v] —■ n;T -* A[[z]; [z = NO -* error ;T -♦ 

A[[x;y];y][attrib[car[v];subst[z;R; (EXPR, 
( (LAMBDA, (X) , (DESC,R,X) ) ) ) ] ] ] [formatq[n;f ; 
cdr[ v] ] ] ] ] [pick[car[ v] ;f ] ] ] 



-133- 



funcfcion [f I : machine language; special form 

If the first element of an S-expression is FUNCTION, the 
second element is understood to be the function. A new list is 
constructed with first element FUNARG, second element equal to 
f, and third element equal to the current list of bound vari- 
ables. I.e. 

eval[ (FUNCTION, f);b] = (FUNARG, f,b) 

Having such a list of bound variables carried along with 
the function insures that the proper values of the bound vari- 
ables are Used when the function is evaluated. Thus 

apply! (FUNARG, f,b);x; a] = apply[f;x;b] 

prog tpv^^e^e.-,; . . »;e n ] : machine language; special form 

The program feature is discussed in Section 4.5. For in- 
terest we include here the program which the interpreter uses 
to work out a program given by the list pv of program vari- 
ables, and the sequence, e^,e 2 , ...,e of program statements. 

In the following p is the usual p-list of pairs, and e 
stands for the entire list 

(pv^^e^e-, . ,.,e n ) 

so that car[e] = pv. 

The program variables used below for the program for prog 
are t2, p2,pr, and r. 

t2 = maplist[car[e];A[[j];list[car[j];NIL]]] 
p2 - append! 1 2; p] 
pr = cdr[e] 
r = pr 
ML go[atom[car[r]] -* ADV;eq[caar[r];GO] -* GO; 
eq[caar[r];RETURN] -* RETjT — NORM] 
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NORM eval[car[r];p2] 
AW r = cdr[r] 

go[ML] 
RET return[eval[cadar[r];p2]] 

GO t2 = eval[cadar[r];p2] 

search[pr;*[[j];eq[car[j];t2];*[[j];setq[r;cdr[j}]j 
A[[ j]; error]] 

go[ML] 

selecttqjfq^^e^^); Cq 2 ,e 2 );...; (q n ,e n )je] : special form 

The q i 's in select are evaluated in sequence from left to 
right until one is found such that 

q jL = q, 

and the value of select is the value of the corresponding e.. 
If no such q. is found the value of select is that of e. 

9.3 Further Functions 

rplaca [x;y] : machine language 

This pseudo -function replaces the address part of the 
first argument x by the second argument y. I.e. y is stored 
in the address part of the location pointed to by the first 
argument. The value of rplaca is NIL. 

rplacd [x;y] : machine language 

This pseudo-function replaces the decrement part of the 
first argument x by the second argument y. I.e. y is stored in 
the decrement part of the location pointed to by the first ar- 
gument. The value of rplacd is NIL. 
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desc [x;y] : machine language 

The function desc (descend) is a function of two arguments, 
the first of which must be a list of the atomic symbols A (for 
car ) and D (for cdr ) . The value of desc is the result of exe- 
cuting on the second argument the sequence of car 's and cdr f s 
specified by the first argument. The operation indicated by 
the first element of the list of A's and D's is executed first. 
Illegal list structure is not checked for. 

desc[x;y] = [null[x] -* y;atom[x] -+ error; eq[car[x];A] -* 
desc[cdr[x];car[y]];T -♦ desc[cdr[x];cdr[y]]] 

pick [x;y] : 

The function pick finds the atomic symbol, x, in the list 
structure, y. The value of pick is a list of A's (for car ) and 
D's (for cdr ) which give the location of x in y. This value 
could be used for example as the first argument of desc . 

Example : 

pick[vj(((u,v)),w)]> (A,A,D,A) 

pick[x;y] = [null[y] -* NO; equal [x;y] -+ NIL;atom[y] -•■ NO; 

T-> *[[j];[equal[j;NO] -* X[[k]; [ equal [k; NO] -► NO; 
T -♦ cons[D;k]]][pick[x;cdr[y]]];T-* cons[A;j]]J 
[pick[x;car[y]]]] 

prop [x;y;u] : machine language 

The function prop searches the list x, for an item identical 
with y. If such an element is found, the value of prop is the 
rest of the list beginning immediately after the element. Other- 
wise the value is u, where u is a function of no arguments. 

prop[x;y;u] = [null[x] -* u[ ];eq[car[x];y] -* cdr[x]; 
T "* prop[cdr[x];y;u] ] 
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remprop [x;p] : 

The function remprop searches the list, x, looking for all 
occurrences of the property p. When such a property is found, 
its name and the succeeding element are removed from the list. 
The two "ends" of the list are tied together as indicated by 
the dashed line below, 



1 



*-name of the property 

The value of remprop is NIL. 

remprop[x;p] = rempl[x], 

where, 

rempl[x] = [null[x] Anull[cdr[x] ] -* NILjcadr[x] = p -* 
prog2[rplacd[x; [null[cddr[x] ] -* NILjT -*■ 
cdddr[x]]];rempl[x]];T -+ rempl[cdr[x] ] ] , 

where prog2[u;v] has the value v, and uses u to effect an action. 

set[x;y] : machine language 

setq [xjy] ; machine language; special form 

The set and setq functions are used to change the values 
of the program variables when using the program feature (see 
Section 4.5). The program variables are initially bound to 
null lists. 

Note that (in S-expression form), 

(SET, (QUOTE, V),e) 3 (SETQ,V,e) 
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intv[xl : machine language % special function 

The function inty finds the address of phe value of the 
integer on the association list of x. 

intv[x] * caar [ prop [cdr[x]; INT; error]] 

flvaltx] : machine language 

The function flval finds the address of the floating- 
point number on the association list x. The value of flval 
is the address of the floating-point number. 

The program for flval is 

flval[x] =prog[[}j 

not[atom[x]] -* return[error] 
Bi null[cdr[x]] -♦ return[error] 

x =. cdr[x] 

car[x] ^ FLO -+ go[Bl] 

return[cadr[x] ] 

tsflot [x] : machine language 

The proposition tsflot is true if the association list for 
x contains FLO pointing to a floating-point number. Otherwise 
the proposition is false. 

The program for tsflot is 

tsflot = prog[[]; 

not[atom[x]] -* return[F] 
Bi null[x] -* return[F] 

car[x] = FLO -♦ return[T] 

x = cdr[x] 

go[Bl] 
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eount : machine language 

The function count is a function of no arguments. Its 
value is identically zero. Its effect is to turn on the CONS 
counter. If the counter is already on, count resets the 
counter to zero. 

The CONS counter is a counter which is incremented every- 
time a word is constructed by the LISP system and put into 
free storage. This counter is to some extent a measure of 
the length of a program and an indicator of the amount of 
free storage it is using up. 

uncount : machine language 

The function uncount of no arguments turns off the CONS 
counter. See the function count for a description of this 
counter. 

speak : machine language 

The function speak of no arguments, causes the contents 
of the CONS counter to be printed on-line or off-line depend- 
ing on the sense-switch settings. See the function count for 
a description of this counter. 

comp_srch[x; d; f ; u] 

The function compsrch composes an S-expression which will 
be interpreted by the APPLY operator as a search . The purpose 
of this new function is to speed up the operation of the search 
on its recursive paths. The search , at each recursion, re- 
quires the APPLY operator to rebind all of the variables x, d, 
f, and u, whereas generally only the x need be revised. The 
search in compsrch rebinds only the x at each recursion. 
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The program for cotnpsrch has the program variable v and 
is the following i 

compsrch[x$d;fju] = prog[[v]j 

v = gensym (see the function gensym ) 
return[defl[xj [searchf [xjvjsubst[vjcar[bndv[d]]; 
f orm[d] ] | subst [ vj car[bndv[ f ] ] ; f orm[ f ] ] j f orm[ u] ] ] ] ] 

In this program the PRO of defl has been tied to EXPR on the 
p-list. 

Note that cotnpsrch avoids the rebinding of d and f by 
substituting the uniquely generated atomic symbol for v into 
d and f . 

The functions searchf . bndv, and form are described below. 

As an example, of the use of COmpsrch , assume that a func- 
tion, called FINDNAME, is to be defined for the interpreter, 
where FINDNAME is to search any list for PNAME and have the 
portion of the list pointed to by PNAME as its value. 

Below are examples of how this function may be defined 
(using the APPLY operator), by using DEFINE, and then, on the 
other hand, by using COMPSRCH, 

DEFINE 

(FINDNAME, (LAMBDA, (L>, (SEARCH, L, 

(FUNCTION, (LAMBDA, ( J) , (EQ, (CAR, J) , (QUOTE, PNAME) ) ) ) , 

(FUNCTION, (LAMBDA, (J), (CADR, J) ) ), 

(FUNCTION, ERROR) 

))) 
or 
COMPSRCH 

(FINDNAME, 

(LAMBDA, (J), (EQ, (CAR, J), (QUOTE, PNAME) )) , 

(LAMBDA, (J) , (CADR, J) ) , 

(LAMBDA, (), ERROR), 
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bndv[x] : 

This function has been introduced into the function 
compsrch as a function whose form later may change. 

bndv = cadr[x] 

form[x] : 

This function has been introduced into the function 
compsrch as a function whose form later may change. 

form[x] = caddr[x] 

searchf [x;v;p;f ju] : 

See the function compsrch ; the function searchf is the 
fast search whose S-expression is set up by compsrch . 

searchf [x; v;p;f ; u] = *[ [x; v;p; f ; u] ; sublis [ ( (NAME,x) , (VAR, v) , (PF,p ) , 

(FF,f ), (UF,u)); (LAMBDA, (VAR), (COND, 
( (NULL, VAR ),UF), (PF,FF), (T, (NAME, 
(CDR,VARJ) )))]]] 

cpl : machine language 

The function cpl copies into free storage a list of the 
following special two-level form (see the function eql), where 
each element of the top level points to a full word. 



-K 



y- 



*- HFu11 word 



J >■ 



'Full word 
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The value of cpl is the location of the copied list. 

cpl[x] = [null[x] -* NILjT *"+ cons[consw[cwr[car[x]JI; 
cpl[cdr[x]]]] 

(Here cwr[n] is the 36-bit contents of register n.) 

consw : machine language 

The function consw (construct word) is not strictly 
grammatical in the LISP-sense. It takes the contents of the 
AC and sends them to the next free storage location. As with 
cons the value of consw is the location of the stored word. 

gensym : machine language 

The function gensym has no arguments. Its value is a 
new, distinct, and freshly-created atomic symbol with a print 
name of the form G0001,G0002, . . .,G9999. 

This function is useful for creating atomic symbols when 
one is needed; each one is guaranteed unique. 

tracklist [x] : See Section 5*2 

The function tracklist is a function of one argument 
which is a list of the LISP functions to be traced. Each 
function mentioned in the list must be a function which has 
EXPR, FEXPR, SUBR, or PSUBR on its association list. The 
value of tracklist is a list of the routines it will be able 
to trace. 

makcblr Cx] : 

This function ("make car or cdr abler") uses the function 
desc to speed up and improve functions such as caar or caddr , 
etc. The argument x is a list of pairs of the form, for 
example , 
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( (caar, (A, A) ) , (cadr, (D, A) ), (caddr, (D,D, A) ),..., ) . 

The function makcblr takes this list and on the association 
list of the first element of each pair puts EXPR followed by 
the lambda expression, 

*[Ej];desc[WAY;j]], 

where the second list of the pair has been substituted for 
WAY. The function funarg is used below to bind the PRO used 
by defl to EXPR. 

makcblr[x] = funargUt j];maplist[ j;7v[[k];defl[car[car[k]]; 
subst[car[cdr[car[k]]];WAYj 
(LAMBDA, (J), (DESC, ( QUOTE, WAY), K) )] ]]]]; 
((PRO,EXPR))] 

prog2 [x;y] : 

The value of prog2 is always the value of the second ar- 
gument y, but the expression for the first argument x is 
evaluated first, x generally is used to effect some action. 
Cf . the use of prog2 in the function printprop ♦ 

9 A Functions on the Supplementary LISP System 

compab [x;yjzj : machine language 

The function compab is a predicate whose value is true if 
the absolute value of the difference between x and y is less 
than z, and whose value is false otherwise, x, y, and z are 
all floating-point numbers. 
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greater [p;q] : machine language 

The function greater is a predicate whose value is true 
if the fifteen-bit quantity p is greater than the fifteen- 
bit quantity q. Otherwise, the value of greater is false. 
This function is useful for ordering atomic symbols in a list, 
e.g. to put the list in some canonical form for comparison 
with other such lists. 

larger [x;y 3 : machine language 

The predicate larger is true if list x is larger than 
list y, and false otherwise. Larger is used, as one may note 
in the definition below, to mean either that some pair of 
corresponding elements obey the greater relation, or, if this 
is not relevant, that the list x is the longer. 

larger [x;y ] = [nulltx] -* Fjnull[y] -*■ T;atom[x] Aatom[y] -*■ 
greater[x;y];atom[x] -* F;atom[y] -* Tj 
larger[car[x] jcar[y]] -*■ Tj larger [ car [y]; 
car[x]] -* P;T "■*■ larger [cdr[x];cdr [y]] ] 

smplfy [xj : machine language 

The function smplfy takes the algebraic expression x and 
simplifies it. The resultant expression is the value of 
smplfy . 

The notation allowed in the algebraic expression is any 
compounding of the following modified polish notation: 

(TIMES,A,B,C); (any number (>1) of arguments) 
(PLUS,A,B,C)j (any number (^l) of arguments) 
(MINUS, X) 
(POWER, X,Y) s X Y 
(RECIP,X) S 1 



X 
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For example , 

(a)(b)(-i-) - d e is written as 

(PLUS, (TIMES', A, B, (RECIP,C) ), (MINUS, (POWER, D,E) ) ) 

For further discussion of the smplfy function, see 
Qoldberg, Solomon H., "Solution of an Electrical Network using 
a Digital Computer", S.M. Thesis, Course VI, M.I.T., August, 
1959- 

distrb [e;pj : machine language 

The function dstrb will distribute conditionally the 
products of sums appearing in the expression e. The proposi- 
tion p determines whether a given sum is to be distributed. 
Thus in the following example let the proposition p of a sum 
be that "if y is included in a sum, do not distribute this 
sum", then 

(x+a ) (y+z+b ) (w+2 ) distributes to 

(xw) (y+z+b)+(2x) (y+z+b)+(aw) (y+z+b )+(2a) (y+z+b) 

For the correct notation for sums and products in LISP see 
above under the function smplfy . 

diff [y;x] : machine language 

The function diff differentiates the algebraic expression 
y, with respect to x. The value of diff is the (unsimplified) 
algebraic expression, 4-f-' Gradients must be provided on 
the association lists of all the functions used in the expres- 
sion, y, except for PLUS and TIMES. See the notation and 
reference given under smplfy. 
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matrixmultiply [x;y3 : machine language. 

This function has as value a matrix which is the product 
of the row matrix, x, and the column matrix, y. The two ma- 
trices are entered either as direct functional arguments in 
ma trlxmul t iply or from being given on the p-llst. For ex- 
ample; if the matrix 

A = 



a ll 


a 12 


a l3 


a 2l 


a 22 


a 23 


a 31 


a 32 


a 33 



Is to be multiplied by itself, the two arguments, for the 
APPLY operator are in the form 

X= (MATRIX, (R0W1,A11,A12,A13), (R0W2,A21,A22,A23), (ROW3,A31,A32,A33)) 
y = (MATRIX, (C0Ll,All,A2l, A31), (C0L2,Al2, A22,A32), (C0L3, A12, A23, A33) ) 

Actually any atomic symbols may be used in place of ROW or COL. 
It is only necessary that the rest of each sublist be the ele- 
ments of the row matrix and the column matrix to the right or- 
der. See page 126 of the following reference where this func- 
tion was developed, 

Goldberg, Solomon H., "Solution of an Electrical Network 
using a Digital Computer", S.M. Thesis, Course VI, M.I.T., 
August, 1959. 

reduce [m] : machine language 

The function reduce reduces an n*n matrix to an (n-l)tf 
(n-1) matrix. The function has been used in electrical net- 
work reduction. See the references under reducetonxn below. 



-146- 



reducetonxn [m;n] : machine language 

This function uses the function reduce to reduce a square 
matrix m to an mn matrix whose rank is less than that of m. 
The argument n must be given in floating-point form. This 
function has been used in electrical network reduction, see 

Edwards, Daniel J., "Symbolic Circuit Analysis with the 

704 Electronic Calculator", S.B. Thesis, Course VI, M.I.T., 

June, 1959. 

Goldberg, Solomon H., "Solution of an Electrical Network 
using a Digital Computer", S.M. Thesis, Course VI, M.I.T., 
August, 1959. 
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9.5 Alphabetic Index bo Functions 

Function Page 

and .114 

app2. .116 

app3 116 

append 121 

apply . .115 

atom 114 

at trlb 120 

bndv ♦#•.«••««.»«««•»•.«»••«•»«•»*«•««»»»».• J-T"U 

car . . . . . 118 

cdr • 118 

comdef . • 129 

compab. . . . . . • 142 

compile 130 

compsrcn •••••«•.*»»«»»«•».•»»»«•••••«•••«»* -*oo 

cone. ...... f .123 

cond 131 

cons 118 

consw. .141 

copy .122 

count .138 

cpl • .140 

Q.6X -L* * * * « * * *» * *• * * » • * *'* * * »* * * f * * * * * * *"*'*'* **• X.£i\) 

define 119 

deflist. 119 

defllsl 119 
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F unction page 

desc I35 

dif f 144 

distrb .144 

eq 115 

eql 115 

equal 115 

error 129 

eval 117 

evils 117 

expt 126 

f lval 137 

form 140 

format 131 

function 133 

gensym 141 

ge t 130 

greater 143 

inst 125 

intv I37 

label 131 

larger 14.3 

list ...121 

makcblr 141 

map 122 
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Function Page 

mapcon. ...... ...... i .122 

maplist , 122 

matrixmultiply 145 

nconc 121 

not ... 114 

null , 114 



or. 



,114 



pair. 123 

pick 135 

prdct . . . . .126 

print. ... 127 

prinl. .128 

printprop. .128 

printpl. 128 

prog. .133 

prog2. 142 

prop , 135 

punchdef 129 

punchi. 129 

punchs.. 129 

quo te , 13 1 

read 126 

reduce 145 

reduce tonxn 146 

remprop. .136 
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Punction 



Page 



rpjaca; . . , .134 

rplacdv 134 

sassoc 125 

search. . . . . . . .,. .124 

searchf . 140 

select . . . . 134 

set I36 

setq I36 

smplfy 143 

speak 138 

sublis ,124 

subs t 124 

sura .126 

tracklist ..141 

t sf lot ......#........... 137 

uncount I38 
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GENERAL INDEX 

Active register, $6 
APPLY operator, 37 
APVAL, 46, 89 
APVAL1, 46, 89 
Arguments 

functional, 21 

number of, 107 
Arithmetic functions, 126 
Association list, 84, 88-95 
Atomic function; see Functions, atomic 
Atomic symbol, 10 

list of, 88 

Base memory image, 67 

Bound variable; see Variable, bound 

Card punching, 65 
Collapsing-list function, 99 
Comma 

omission of, 24, 66 
Compiler, 53-64 

functions, 129-130 
Compound function; see Functions, compound 
Conditionals, 4, 107 

in program feature, 56 
Cons counter, 109, 138 
Conversion, see Numbers, conversion of 
CRD, 67 
cwr, 115 
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GENERAL INDEX 

Debugging; see Tracing 

Definition of functions, 23, 40-43, 91, 119 

at run time, 105 

error indication, 107, 108 
Differentiation, 22, 144 
Dot notation, 24, 84, 88 
Dummy variable; see Variable, dummy 

Elementary functions, 12 
Error indications, 107-112 
EXPR, 41, 44, 53, 91 

FEXPR, 48 

FIN, 67 

Findex, 93 

Flexowriter, 71-82 

FLO, 49, 92 

Floating-point numbers; see Numbers 

FLX, 67 

Forms , 7 

Fortran, 50 

Free storage, 60, 95-97 

Free variable; see Variable, free 

FSUBR, 48 

FUNARG, 45, 133 
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GENEHAL INDEX 

Functions, 3 

alphabetic list of, 147-150 

arguments for, 107 

atomic, 44 

compound, 44 

computable, 14 

definition; see Definition of functions 

partial, 3 

pseudo-, 43 

recursive, 3, 5, 9 

use of, 24, 37 

Garbage collector, 89, -95-97, 111 
GO, 50-51 
fresh, 74 

Input-output functions, 126 

INT, 90 

Integers, 49, 90, 137 

loflex, 77 

Ioflip, 77 

Label, 9, 17, 43, 45, 47 

Lambda, 8, 17, 45 

LCON deck, 66 

Length-of-list function, 50, 104 

LISP-SAP, 54 

List, 11, 16 

of atomic symbols, 88 

of floating-point numbers, 92 

operations on a, 121-125 
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GENERAL INDEX 
List structure, 83-95 

M (meta) - expressions, 12 

translation to S-expressions, 17 
for program feature, 53 

Macro, 57 

MINUS, 49, 92 

NUMB, 92 

Numbers, 49-50, 137 

association list for, 92 

conversion of, 112 

floating-point, 49-50, 92 

list of floating-point numbers, 92 

range of, 50 

See also: Arithmetic functions, Integers 

Object, 88 
Overlord, 111 

p-list, 20, 37, 45-47 

Partial function; see Functions, partial 
Performance request card, 69 
PNAME, 89-90, 92 
Polish notation, 21 
Predicates, 4, 114 
Program feature, 50-53, I33 
Program variable; see Variable, program 
Property list, 88 
See Association list 
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GENERAL INDEX 

Propositional 

calculus j see Wang algorithm 

connectives, 4, 7 

expression, 4 
Pseudo-function; see Functions, pseudo- 
Push-down list, 59, 109 

Quote, 17, 24, 40, 48 

Recursive function; see Functions, recursive 

Request card, 69 

REM 

RETURN, 50-51 

Reversing-list function, 103 

S (symbolic) - expressions, 10 

translation from M-expressions, 17 
represented by list structure, 83-86 

Sequence-mode, 73 

SET, 67 

Set, 51, 107 

Setq, 51, 107 

Special forms, 48, I3I-I34 

STOP, 66 

SUBR, 41, 44, 54, 90 

Supplementary system, 142 

Switches, 69 
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GENERAL INDEX 



Tapes, 68 

TEN-mode, 75 

Tracing, 25, 70 

Tracklist, 25, 70 

Triplet, 40 

TST, 66 .:,;. 

TXL to subroutine, 41, 54 

Variable 

bound, 8, 9 
dummy, 8, 46 
free, 8, 37, 108 
program, 51 

Wang algorithm, 25 



